有意思的剪贴板操作问题

[cpls]

Form有Edit1,Edit2和Memo(TMemo)
将Edit1.Text + Edit2.Text加到Memo中，然后Memo.SelectAll, Memo.CopyToClipboard
如果Edit1或Edit2中有汉字（拷贝而来），则把剪贴板中内容粘贴到记事本中时为乱码。
如果汉字是输入的，则为正常。

Delphi 6 + Windows 2000 Server

[todouwang]

Memo.SelectAll
可能要操作lines

[caiso]

顶一下

[g961681]

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := Edit1.Text + Edit2.Text;
Memo1.SelectAll;
Memo1.CopyToClipboard;
end;
没任何问题啊！

[g961681]

WinXP SP2 + Delphi6

[才子鸣]

winXP SP2+delphi7+delphi2005

[merkey2002]

Form有Edit1,Edit2和Memo(TMemo)
将Edit1.Text + Edit2.Text加到Memo中，然后Memo.SelectAll, Memo.CopyToClipboard
如果Edit1或Edit2中有汉字（拷贝而来），则把剪贴板中内容粘贴到记事本中时为乱码。
如果汉字是输入的，则为正常。
----->
从哪里拷贝而来?

[caiso]

顶一下

[cpls]

To merkey2002(小样的)
比如从这个网页


To g961681(Cashier)
1。程序刚启动就拷贝汉字到Edit1或Edit2，再执行Memo.Lines.Add,Memo.SelectAll和Memo.CopyToClipboard，再开一个记事本粘贴，得到乱码。
2。如果输入汉字，再执行后面操作，汉字显示正常。以后再重复1，汉字不再出现乱码。