Delphi-Quellcode:
Function ZapSpacesGeneric (Const aString : String) : String;
Var
sPrevVersion : String;
Begin
Result := aString;
While Pos (' ', Result) > 0 Do // solange doppelte Leerzeichen vorhanden sind
Result := StringReplace (Result, ' ',' ', [rfReplaceAll]) // ersetze sie durch ein Leerzeichen
End;
Eine knappe Implementierung mit Bordmitteln, die beinahe jeden Performancewettbewerb verliert, aber für den Hausgebrauch ausreichend ist. Im Prinzip werden solange alle doppelten Leerzeichen durch ein einziges Leerzeichen ersetzt, bis keine doppelten Leerzeichen mehr vorhanden sind.