Wie oft ist ein Zeichen in einem String

[dominikkv]

Zitat von cruiser:

Und dass ich den uralten Code wirklich langsam mal optimieren muss

Edit: Okay.. ich fordere ein neues Rennen

hehe...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  s: String;
  tick: Cardinal;
begin
  setlength(s,100000);
  for i:=1 to 100000 do
    s[i]:=chr(i mod 10 +60);
  tick := GetTickCount;
  for I := 1 to 1000 do
    CountSubStr('A', s);
  label1.Caption := IntToStr(GetTickCount - Tick);
end;

ich komme auf 203 ms...