function PosCount(substr, str: string): integer;
var
  p, i: integer;
begin
  i:=-1;
  p:=0;
  repeat
    i:=i+1;
    p:=PosEx(substr, str, p + Length(substr));
  until p=0;
  Result:=i;
end;

Два комментария to “Количество подстрок в строке.”

1. lizz:

   28 Ноябрь 2009 в 19:52

   А что есть количество подстрок в строке? Сколько подстрок содержит строка «abc»? 6?

   Ответить
2. crystalbit:

   29 Ноябрь 2009 в 14:34

   Привет)
   Функция Pos говорит о позиции подстроки в строке.
   Подстрока – это я так перевел substr – строка, позицию которой мы определяем в основной строке (str).

   А в функции PosCount мы определяем не позицию, а количество.
   Например, в строке abc есть строка (подстрока^^) bc, она всего одна.
   Функция Pos(‘bc’, ‘abc’) вернет 2, так как она начинается со второго. А PosCount(‘bc’, ‘abc’) вернет 1.
   Еще пример – в строке ‘abcabc’ есть две подстроки ‘b’.

   Ответить
3. lizz:

   30 Ноябрь 2009 в 9:05

   Теперь понятно, что-то я сглупил немного .

   Ответить