Mega Code Archive

 

Categories / Delphi / Strings

 

Delete all spaces from string

Title: 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&lt=Length(Str) do if Str[i]=' ' then Delete(Str, i, 1) else Inc(i); Result:=Str; end;