Delphi 7: Количество вхождений подстроки в строку

Источник

uses StrUtils;

...

function Substr_Count(const Substring, Text: string): integer;
var
offset: integer;
begin
result := 0;
offset := PosEx(Substring, Text, 1);
while offset <> 0 do
begin
inc(result);
offset := PosEx(Substring, Text, offset + length(Substring));
end;
end;