注意：不是CString哦！

在输入时候禁止输入空格

var
i:integer;
s1,s2,s3:string;
begin
s1:='abcd abcd 123'
s2:=' ';
for i:=1 to length(s1) do
begin
if pos(s2,s1)<>0 then
begin
delete(s1,pos(s2,s1),1);
end;
end;
s3:=s1;
end;

很简单啊
procedure TForm1.Button1Click(Sender: TObject);
var
ss:string;
begin
ss:='abc efg hi';
ss:=stringReplace(ss,' ','',[rfReplaceAll]);
showMessage(ss);
end;

end.