Wie oft ist ein Zeichen in einem String

[dominikkv]

[quote="xZise"]

Zitat von dominikkv:

Gabs schonmal:

das sah vor 2 minuten noch anders aus

Zitat von Muetze1:

Da würde ich glatt mal frech fragen: wer hat die schnellste?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Start: TTime;
begin
Start := Now;
for I := 1 to 100000000 do
  Zeichen('abcabcabcabcabcabcabcabcabcabc', 'a');
label1.Caption := TimeToStr(Now-Start);
end;

-> 7 sekunden