Question

在delphi中如何实现将剪贴板中的多行字符串中间加上逗号？

如实现：将
55
44
转换成
55，
44跪求高人指教，小弟在这里先谢过了哈！
PS:如能附上代码，本人将不胜感激！

Answer 1

什么都要别人帮你完成？！

我只告诉你个思路：
Delphi有专门处理剪贴板的函数，非常容易完成你的任务。
你自己去查资料吧。

Answer 2

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
slist: tstrings;
begin
if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then
begin
slist := tstringlist.Create;
try
slist.Text:=Clipboard.asText;
for i:=0 to slist.Count-1 do
slist[i]:=slist[i]+',';
Clipboard.asText:=slist.Text;
finally
slist.Free;
end;
end;
end;