Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
12. Apr 2006
Ja, könnte ich machen, aber die Routinen stehen hier doch sowieso alle...
@Elvis: Schulden werden per :cheers: beglichen. :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
12. Apr 2006
Etwas verspätet, aber hier eine kleine Vergleichsgrafik. Erstellt wurden 5 Randomstrings (10 Mio Zeichen) mit mehr oder weniger häufigen doppelten Leerzeichen. Das Laufzeitverhalten ist stark Abhängig von der Häufigkeit. Lustigerweise kommt man dann zu anderen Ergebnissen, zumindest auf einem AMD.
http://www.edwebservice.de/uploads/ab0cabdd5f.bmp
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
11. Apr 2006
Das hier ist bei einem AMD 64 noch etwas (8%) schneller:
Function RemoveDblSpaces4(const InStr: string): string;
var
Src, Dst: PChar;
begin
SetLength(Result, Length(InStr));
Src := Pointer (InStr);
Dst := Pointer (Result);
while (Src^ > #0) do Begin
If PWord(Src)^ <> $2020 Then Begin // $2020 = 2 Blanks hintereinander