Beitrag #23 war vermutlich ein Irrläufer - aber trotzdem:
Delphi-Quellcode:
function FindCount(s: TStrings; const subStr: String): Integer;
var
i, iPos: Integer;
begin
Result := 0;
for i := 0 to Pred(s.Count) do
begin
iPos := Pos(subStr, s[i]);
while iPos > 0 do
begin
Inc(Result);
iPos := PosEx(subStr, s[i], iPos + Length(subStr));
end;
end;
end;
Grüße vom marabu