汉字繁简体转换

2 views
Skip to first unread message

电脑玩家

unread,
Oct 13, 2009, 3:50:36 AM10/13/09
to 挨踢技术
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;

Reply all
Reply to author
Forward
0 new messages