抓狂小白的程式筆記

來源網址 http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=104986

function chs2cht(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 cht2chs(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;

若是繁體OS 僅在2009已上版本有效

此函數並非一定準確 因有些中文字 簡體轉繁體是一對多 所以翻出來的字僅供參考 若要實際解決繁簡問題還是必須自行翻譯