試看看
這個是豬寶寶從網路上抄來的

檢視純文字版列印?
function Cn2Big(CnStr: string): string;  
var  
  Len: Integer;  
begin  
  Len := Length(CnStr);  
  SetLength(Result, Len);  
  LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(CnStr), Len, PChar(Result), Len);  
end;  
  
function BIG2cn(bigStr: string): string;  
var  
  Len: Integer;  
begin  
  Len := Length(bigStr);  
  SetLength(Result, Len);  
  LCMapString(GetUserDefaultLCID, LCMAP_SIMPLIFIED_CHINESE, PChar(bigStr), Len, PChar(Result), Len);  
end;  
  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
edit2.Text:=CN2BIG(EDIT1.Text);  
end;  
  
procedure TForm1.Button2Click(Sender: TObject);  
begin  
edit2.Text:=big2cn(EDIT1.Text);  
end;  



===================引 用 h@visli 文 章===================
 各位新春快樂！

我有一份Unicode編碼的文本文檔，裏面大部分內容為繁體中文，其它為英文字符，需要將裏面的繁體中文內容轉為簡體中文Unicode內容，請問在Delphi XE下應該如何實現？
aftcast
站務副站長



發表：80
回覆：1421
積分：1705
註冊：2002-11-21

發送簡訊給我
    
 #3     發表時間：2013-02-18 18:29:59   IP:114.32.xxx.xxx 訂閱 
hello，

必需要警告豬寶寶上面貼的程式碼僅在以下情形是正確的:
1/ os本身是簡體的，而無論delphi是哪版 (d5以後應該都對)
OS 本身是简体，的而无论Delphi是哪个版本，D5以后应该都对。

2/ 若os是我們繁體的，那麼上面的碼僅delphi2009以上的版本才會正確。若2009以前的話，就錯!
若OS是我们繁体的，那么上面的代码仅在Delphi2009以上的版本才会正确。若2009以前的话，就错！

若要正統的表達函式的用意，那 Cn2Big 或 Big2Cn的命名不正確。應該把
Cn2Big 改成 chs2cht  (簡字體轉繁字體，必需強調的是…它與編碼轉換無關，也就是說都是在同一個編碼上換字而已)
简字体转繁字体，必须强调的是，他与编码转换无关，也就是说是在同一个编码上换字而已。
Big2Cn 改成 cht2chs

因為，在上述所講的 1 的情形下，且delphi是2009前，雖然"看起來"字是對的，但其實轉來轉去都是GBK編碼，非big5。
因为，在上述1的情形下，且Delphi是2009前，虽然看起来字是对的，但是其实转来转去都是GBK编码，并非BIG5。

而1的情形下，但delphi是2009以後，那麼情形與情形2是同樣的!
而1的情形下，但Delphi是2009以后，那么情形与情形2是同样的！

而上述2的情形下，其實是因為d2009後的字串是unicode，故LCMapString這個api會呼叫到LCMapStringW這個unicode版，於是變成簡"字型"unicode轉"繁"字型unicode。
而上述2的情形下，其实是因为d2009后的字串是Unicode，故LCMapString这个API会调用到LCMapStringW这个Unicode版，于是变成简字形Unicode转繁字形Unicode。

若真的要把big5轉簡體，或是簡體轉big，那就沒那麼簡單。詳可見我的blog: http://aftcast.pixnet.net/blog/post/22191609  此外，近期我可能會和qcom討論是否可以開個unicode的深入課程，最快3月多。但時候還請大家來聽並指教! :)

若真的要把BIG5转简体，或是简体转BIG5，那就没那么简单。