delphi 简体和繁体字符串转换

最新推荐文章于 2024-04-07 16:27:50 发布

aldsot0997

最新推荐文章于 2024-04-07 16:27:50 发布

阅读量167

点赞数

原文链接：http://www.cnblogs.com/yangxuming/p/7323429.html

版权

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;

转载于:https://www.cnblogs.com/yangxuming/p/7323429.html