关于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;