Tstringlist Länge ermitteln

[marabu]

Hallo Jaimy,

du darfst die Suche innerhalb der Zeile nicht nach dem ersten Vorkommen abbrechen:

Delphi-Quellcode:

function Occurs(const subStr, s: String): Integer;
var
  i: Integer;
begin
  Result := 0;
  i := 1;
  repeat
    i := PosEx(subStr, s, i);
    if i > 0 then
    begin
      Inc(Result);
      Inc(i, Length(subStr));
    end;
  until i = 0;
end;

Grüße vom marabu