http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=26497
http://delphi.ktop.com.tw/board.php?cid=17&fid=98&tid=232

不曉得有沒有人跟我一樣，我在用第一篇使用的範例時。
會變成這樣
ex：集團 ->摩芶
( 翻了很多篇文章，try了很多前輩所提供的範例，幾乎所有的「集團」轉換，都會便成「摩芶」 )

但是使用第二篇時，就正常了。(可是貼到網頁上時，依舊是「摩芶」 )
ex：集團->集団

請問是因為什麼原因造成的?
(看了很多前輩的文章 有提到UTF 8 BIG5 unicode ，不過不是很瞭解，不曉得哪裡有介紹編碼的文章，謝謝)

編輯記錄

這是因為當你把它貼到Clipboard時Delphi默認你用的是系統內碼，解決的方法一是將之轉為Unicode再按Unicode的方法貼，方法二是貼的時候說編碼
[code delphi]
procedure CopyToClipboard(const s:string;LocaleID:LCID);
var
MemHandle: HGLOBAL;
P: ^LCID;
begin
if s='' then exit;
with Clipboard do
begin
MemHandle:=GlobalAlloc(GMEM_MOVEABLE GMEM_DDESHARE, sizeof(LCID));
if MemHandle <> 0 then
begin
p:=GlobalLock(MemHandle);
p^:=LocaleID;
GlobalUnlock(MemHandle);
Open;
try
AsText := s;
SetAsHandle(CF_Locale, MemHandle);
finally
Close;
end;
end else astext:=s;
end;
end;[/code]

用CopyToClipboard(s,$0804)即可