|
Registriert seit: 16. Mär 2004
2.287 Beiträge
|
Re: Strings
21. Jul 2005, 09:59
selbst machen...
Delphi-Quellcode:
function RemoveSpaces(Val: String):String;
var i:Integer;
begin
Result:='';
for i:=1 to Length(Val) do
if Val[i]<>' ' then Result:=Result+Val[i];
end;
»Unlösbare Probleme sind in der Regel schwierig...«
|