最近在做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(ABig5Stri...[ 查看全文 ]