StringReplace und doppelte Leerzeichen

[Jasocul]

Alternative Lösung:

Delphi-Quellcode:

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

oder

Delphi-Quellcode:

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

Kommen die doppelten Leerzeichen häufig in einem String vor, dann dürfte die zweite Variante schneller sein.