关于Ansi版Delphi剪切板中文乱码的问题

Ansi版Delphi的剪贴板也是用Ansi字符串实现的，Clipboard.AsText是用CF_TEXT方式，设置和获取的都是AnsiString类型，处理中文时就是乱码，直接改Clipbrd单元当然不是好办法，嗯，可以在TClipboard上继承一个新类来实现：

  TUnicodeClipboard = class(TClipboard)  private    function GetAsUnicodeText: WideString;    procedure SetAsUnicodeText(const Value: WideString);  public    property AsUnicodeText: WideString read GetAsUnicodeText write SetAsUnicodeText;  end;

使用时：

var s: string;begin  s := TUnicodeClipboard(Clipboard).AsUnicodeText;end;