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