汉字繁简体转换

[电脑玩家]

LCMapString：这个是一个 Win32 API

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;