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;
{调用测试}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GB2Big('汉字繁简转换')); {漢字繁簡轉換}
ShowMessage(Big2GB('漢字繁簡轉換')); {汉字繁简转换}
end;
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;
{调用测试}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GB2Big('汉字繁简转换')); {漢字繁簡轉換}
ShowMessage(Big2GB('漢字繁簡轉換')); {汉字繁简转换}
end;