Suchfunktion <> Listbox ?

[marabu]

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