procedureTUIRegroup.OnCopyExecute(Sender:TObject);
var
txt:String;
begin
txt := ‘为啥乱码?’;
Clipboard.SetTextBuf(PChar(txt));
end;
上面这个代码在中文操作系统里是没有问题的,但是如果是英文操作系统就会出现乱码怎么解决呢?
网友回复/评论仅代表其个人看法,并不表明本社区同意其观点或证实其描述。
1.不欢迎无意义的回复/评论和类似“顶”、“沙发”之类没有营养的文字
如果只是想简单的表个态,请点 有用无用支持反对 等按钮
2.发言之前请再仔细看一遍文章,或许是您遗漏、误解了,理性讨论、切莫乱喷
3.严禁发布违法、违规的信息,请勿到处招贴广告、发布软文;
4.如果您发现自己的回复/评论不见了,请参考以上3条
5.不停制造违规、垃圾信息的,账户将被禁止
给你一段代码,保证管用: