编程论坛 → Delphi论坛

string格式字符串如何删除空格？

ramboo 发布于 2006-05-07 22:37， 1905 次点击

注意：不是CString哦！

3 回复

avon45632006-05-11 10:20

在输入时候禁止输入空格

lsyc2006-05-15 10:08

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;

YunER10012006-05-26 14:45

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

end.