delphi 中文简体转中文繁体 function GB2Big(GB: string): string; var Len: Integer; begin Len := Length(GB); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result), Len); end;