![]() |
#2
mzlmzl2008-05-20 16:46
|
procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
begin
str1:=edit1.Text;
str2:=StringReplace ( str1, ' ', '', [rfReplaceAll] );
label1.Caption:=str2;
end;
去除键盘输入的字符串中间的空格可以,从网页上复制的文本字符串中间的空格不行,为什么?谢谢!