•  

ГлавнаяРабота с текстом и строками → Подсчитать количество вхождений подстроки в строку

Создано: 01.08.2010 19:13:55 · Исправлено: 01.08.2010 19:13:55 · Прочтений: 2112

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Подсчитать количество вхождений подстроки в строке

Понадобилось подсчитать количество вхождений подстроки в строку,
вот и появилась эта функция. Возможно в ней и нет изюминки,
но может кому и пригодится.

Зависимости: System
Автор:       Дмитрий, [email protected], ICQ:155133146, Тольятти
Copyright:   Дмитрий
Дата:        17 октября 2002 г.
***************************************************** }

function CntRecurrences(substr, str: string): integer;
var
  cnt, p: integer;
begin
  cnt := 0;
  while str <> '' do
  begin
    p := Pos(substr, str);
    if p > 0 then
      inc(cnt)
    else
      p := 1;
    Delete(str, 1, (p + Length(substr) - 1));
  end;
  Result := cnt;
end;