Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; Procedure button1click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} 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; function big2gb (BIG: string): string; var Len: integer; begin Len: = length (BIG); setlength (result, Len); lcmapstring (getuserdefaultlcid, lcmap_simplified_chinese, pchar (BIG), Len, pchar (result), Len); end; {call test} procedure tform1.button1click (Sender: tobject); begin showmessage (gb2big ('simplified Chinese character conversion ')); {simplified Chinese character} showmessage (big2gb ('simplified Chinese Character complex simplified Chinese character '); {simplified Chinese character conversion} end; end.