Alle anderen Zeichen außer a-z entfernen!

[sakura]

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".

......