Question

急！求Delphi代码（去除文本框中的空格）

假设在第一个对话框中输入一段话（包含空格），如果点击【删除空格】，则在第二个对话框中生成另一段不包含空格的话。如果点击保存的话，效果等于【Ctrl+C】。（例子：例如我输入"你喜欢 007 幽灵 岛吗？” 则生成“你喜欢007幽灵岛吗？”谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);

var

s:tstrings;

i:integer;

begin

//创建一个空的字符串列表s,并指定s的间隔字符为空格(默认值为逗号)

s:=tstringlist.Create;

s.Delimiter:=' ';

//指定s未分割的全部字符文本为edit1的内容，因为已经指定了分隔字符为空格

//因此s会自动以空格作为标志将整个文本分割为list中的每个item项

s.DelimitedText:=edit1.Text;

edit2.Clear;

//将edit2的内容设置为list的item的每一项相连接

//trim函数的作用是去除支付换前后的空白符号（不仅仅是空格，包括回车、tab）

for i := 0 to s.Count-1 do

   edit2.Text:= edit2.Text+trim(s.Strings[i]);

//释放自己创建的list

s.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//填充剪贴板，注意需要在uses中引用 Clipbrd 单元

Clipboard.AsText:= edit2.Text;

end;

效果如图：

来自梦想软件工作室，希望采纳，谢谢！

追问

十分感谢！全部部分（button1）完全没有任何问题，可是我接着把Button2写进去，则会出现error，是不是哪里我错了？

追答

要引用那个 Clipbrd 单元啊，不是说了么。
把代码编辑器拉到最上面，你可以看到已经引用了很多单元了。
还有，现在不要用D7了，换一个XE7版本吧，比较稳定了。
对了，点击button2是没有视觉效果的，你要到记事本中按ctrl+V就知道效果了。