3 replies to this topic

[standard]

Hello. Just a quickie

Is there a function that removes all spaces from a given string.

So say i have the words (''Hello To All'')
Can i use a function so that the string becomes (''HelloToAll'')

Any help would be appreciated. Thanks in advance

[WingedPanther]

Delphi Basics : StringReplace command

[2710]

nice one adam :)

[Pr0grammer]

Quote

So say i have the words (''Hello To All'')
Can i use a function so that the string becomes (''HelloToAll'')

function MyTrim(txt : String) : String;
var
 tmp : String;
 n : Integer;
begin
 tmp :='';
 for n:=1 to StrLen(PChar(txt)) do
  begin
   if RightStr(LeftStr(txt,n),1) <> ' ' then
     tmp := tmp +  RightStr(LeftStr(txt,n),1);
  end;
 Result := tmp;
end;

For Use :

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := MyTrim(Edit1.Text);
end;

Good Luck