我在TMemo或TStringList上输入中文，然后利用它的SaveToFile把内容输出到文件，打开文件后一切正常。但当我输入后用以下代码拷到clipboad

var
cp: TClipboad;
str: PAnsiChar;
begin
...
str := strList.GetText; // strList 是TStringList
cp := TClipboad.Create;
cp.Open;
cp.setTextBuf(str);
cp.Close;
...
end;

把copy 到clipboad的内容再paste到notepad或其它editor上即出现乱码。我后来又试了直接在TMemo上输入中文，然后按Ctrl-C copy，井在notepad上按Ctrl-V paste 出来，一样乱码。但如果copy后是在TMemo上paste则是正常无乱码的，奇怪。

我用以下程式碼,測是無問題的,是不是只有某些中文字會?

var
cp: TClipboard;
str: PAnsiChar;
strList:TStringList;
begin
strList:=TStringList.Create;
strList.Assign(Memo1.Lines);
str := strList.GetText;
cp := TClipboard.Create;
cp.Open;
cp.setTextBuf(str);
cp.Close;
Memo2.PasteFromClipboard;
strList.Free;
end;

我用以下程式碼,測是無問題的,是不是只有某些中文字會?

var
cp: TClipboard;
str: PAnsiChar;
strList:TStringList;
begin
strList:=TStringList.Create;
strList.Assign(Memo1.Lines);
str := strList.GetText;
cp := TClipboard.Create;
cp.Open;
cp.setTextBuf(str);
cp.Close;
Memo2.PasteFromClipboard;
strList.Free;
end;

是啊，如果paste到Memo上是没有问题的，中文也能出来，但如果paste到notepad或其它文本编辑器，中文会乱码