Zitat von
Sharky:
Bei Funktion1 : 1 ms
Bei Funktion2 : 2200 ms
Cool, gell
Ändere mal den TestString-Generator zu
Delphi-Quellcode:
begin
Randomize;
for ndx := 1 to 1000 do
begin
s := s + Chr(Random(Ord('z')-32)+32);
end;
end;
Damit ist der String etwas verteilter und das Ergebnis "ehrlicher".
...
...