StringReplace und doppelte Leerzeichen

[Pichel]

Zitat von Jasocul:

Käme auf einen Versuch an. Vielleicht hat Pichel ja Lust, die Varianten zu vergleichen?

Also meine "alte" Variante brauchte 2.654sek

Delphi-Quellcode:

while Pos('  ', DeinString) > 0 do
  Delete(DeinString, Pos('  ', DeinString), 1);

2.592sek
und

Delphi-Quellcode:

while Pos('  ', DeinString) > 0 do
  DeinString := StringReplace(DeinString, '  ', ' ', [rfReplaceAll]);

1.573sek

und das ganze bei einer Stringlänge von 77000 Zeichen, nicht so "pralle"