|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Delete all spaces from string
Use DeleteSpaces function. For example:Edit2.Text:=DeleteSpaces(Edit1.Text);
DeleteSpaces function is so:
function DeleteSpaces(Str: string): string;
var
i: Integer;
begin
i:=0;
while i<=Length(Str) do
if Str[i]=' ' then Delete(Str, i, 1)
else Inc(i);
Result:=Str;
end;
-
More for developers
