Leerstellen löschen

[Wormid]

Oder ohne Schleifen:

Delphi-Quellcode:

function LeerzeichenLoeschen(Input: String): String;
begin
  Result := Input;
  if Length(Input) > 1 then 
    Result := Input[1] + Trim(Copy(Input, 2, Length(Input)));
  end;
end;

Gruß

Wormid

Edit: Minimales Error-Checking nachgerüstet... *g*