奶奶的，巨难问题，骨灰级大虾请进，一般小虾也请进集思广益。

Question

就是关于
Clipboard.AsText:='汉字';在执行后，再用ctrl_V在word或记事本里粘贴，发现是乱码，怎么解决？我曾经使用
Clipboard.AsText:=widestring('汉字');也无效。究竟别的软件比如记事本是怎么进行拷贝的？（嘿嘿，其实不算难吧，吸引一下眼球）

Answer 1

SendMessage(Handle, WM_COPY, 0, 0);

Answer 2

我要实现这样的功能：
当编辑中的用户需要φ、±、÷等特殊字符时，就单击右健，弹出菜单，然后选择φ、±、÷等菜单，此时执行程序Clipboard.AsText:='φ'，再执行一下Ctrl_V就可以直接把特殊字符粘到当前编辑框里了。但是当Clipboard.AsText:=字母时没有问题，汉字或者特殊字符就是乱码，好象还是剪贴板的格式问题。

Answer 3

我在想  最好是往剪贴板里面传ASCII码 显示的时候处理一下就行
不过这样好像只能在自己程序的编辑框里面能有效果

Answer 4

我觉得这么贴也没出现过乱码啊？正常都是ASCII的

Answer 5

试下(应用的时候可以动态创建Edit)
  Edit1.SelectAll;
  Edit1.CopyToClipboard;如果上述变态的方法不行
请用如下更变态的方法
  RichEdit1.SelectAll;
  RichEdit1.SelAttributes.Name := '宋体';
  RichEdit1.SelAttributes.Size := 9;
  RichEdit1.CopyToClipboard;

Answer 6

var
  Clipboard:TClipboard;
begin
  Clipboard:=TClipboard.Create;
  Clipboard.asText :='汉字';
  Clipboard.Free;
end;我做过测试在记事本中粘贴的数据就是 '汉字';没有错误，不知道8341 (八三四一) 在其它计算机上做过测试吗？

Answer 7

在我win2000个人版机器上，无论是Clipboard.asText :='汉字'还是Clipboard.SetTextBuf('汉字');，到记事本上ctrl+v粘贴时都是乱码，请各位测试一下！

Answer 8

if ByteType(要被截取的字符串,截取字节位置) = mbLeadByte then再加这样一句判断然后再截取到剪切板就行了。（不受字集限制）