Wie oft ist ein Zeichen in einem String

[sirius]

Zitat von cruiser:

Und dass ich den uralten Code wirklich langsam mal optimieren muss

Edit: Okay.. ich fordere ein neues Rennen

Neuer Code:

Delphi-Quellcode:

function CountSubStr(SubStr, Str: string): integer;
var
  Offset: Cardinal;
  l: Integer;
begin
  l := Length(SubStr);
  Offset := 1;
  Result := 0;
  repeat
    Offset := PosEx(SubStr, Str, Offset);
    if Offset > 0 then
    begin
      Inc(Result);
      Inc(Offset, l);
    end;
  until Offset = 0;
end;

Du vergleichst immer noch strings. Das dauert zwangsläufig länger. Da brauch ich gar kein neues Rennen starten.