Ja oder vielleicht so:
Delphi-Quellcode:
function DeleteBlanksStr( const Value : string ) : string;
begin
RESULT := Value;
while Pos( ' ', RESULT ) > 0 do
RESULT := {SysUtils.}StringReplace( RESULT, ' ', ' ', [ rfReplaceAll ] );
end;
Geht auf jeden Fall in Delphi 2007
Denn in der Kürze liegt die Würze
cu
Oliver
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)