Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
12. Sep 2008
Weil wir Weihnachten zeitig Essen, da hatte ich nicht so viel Zeit
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
12. Sep 2008
Hab ich mal gemacht ...
function DeleteBlanksFromStr1( const AString : string ) : string;
function DeleteBlanks(AStr: string): string;
var i,
LIndex,
LCount: Integer;
LStr,
LString: string;
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
12. Sep 2008
Ja oder vielleicht so:
function DeleteBlanksStr( const Value : string ) : string;
begin
RESULT := Value;
while Pos( ' ', RESULT ) > 0 do
RESULT := {SysUtils.}StringReplace( RESULT, ' ', ' ', );
end;