最近在做Delphi下的簡體與繁體轉換, 發現Windows2000自帶的工具"中文轉碼器"很好用, 不僅可以轉內碼(BIG5-->GBK), 還可以將繁體字轉為簡體字(如:東-->東).

要轉內碼比較簡單, 使用MultiByteToWideChar先將簡體/繁體(GBK/BIG5)轉為UniCode, 再使用WideCharToMultiByte從Unicode轉為繁體/簡體(BIG5/GBK).

EX:function Big52GB( ABig5String: string): String;{ BIG5 to GBK : BIG5 ==> Unicode ==> GBK }Var  mWString: array[0..1024] of WideChar;  cchWideChar: Integer;  mLongBool: LongBool;begin  Result := ABig5String;    //分配空間  mLongBool := True;  //1.先取得需要的長度  cchWideChar := MultiByteToWideChar(950, 0, PChar(ABig5String), length(ABig5String), @mWString, 0);//  SetLength(mWString, cchWideChar+1);  //2.BIG5 to Unicode  MultiByteToWideChar(950, 0, PChar(ABig5String), length(ABig5String), @mWString, cchWideChar);  //3.Unicode to GBK  WideCharToMultiByte(936, 0, @mWString, cchWideChar, PChar(Result), length(Result), '?', @mLongBool);end;

經過以上步驟， 就可以把BIG5碼轉為GBK碼，但是繁體中的字因為在GBK中大部分都有對應（繁體字形），因而，以上得到的是BIG5對應的繁體字形，如BIG5碼的 “東”($AA46)得到的GBK對應的字為“東”($967C)，而不是簡體中最常用的“東”($B6AB)。

 在中文轉碼器中，最后一頁提供了是否轉字形的選項，它可以做到！那我們也應該可以做到！經過調試，原來它是調用LCMapStringW!

在Windows.pas中，定義了三個這樣的函數：

function LCMapString(Locale: LCID; dwMapFlags: DWord; lpSrcStr: PChar;
  cchSrc: Integer; lpDestStr: PChar; cchDest: Integer): Integer; stdcall;

function LCMapStringA(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PAnsiChar;
  cchSrc: Integer; lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;

function LCMapStringW(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PWideChar;
  cchSrc: Integer; lpDestStr: PWideChar; cchDest: Integer): Integer; stdcall;

其中，LCMapString＝LCMapStringA，也就是使用ASCII的，當然我們也可以使用LCMapStringW轉UniCode成為簡體字形。