dianlanren 发表于 2015-6-5 14:43:40

实现繁体字到简体字的转换函数

本帖最后由 dianlanren 于 2015-6-5 23:32 编辑

本文章介绍了XE5实现繁体字到简体字的转换,下面直接上函数代码,经过测试有效。

function GBChs2Cht(GBStr:string):string;
var
SourceLength :Integer;
TargetStr :string;
begin
SourceLength := Length(GBStr) + 1;
SetLength(TargetStr, SourceLength);
LCMapString($804, LCMAP_TRADITIONAL_CHINESE, PWideChar(GBStr), SourceLength, PWideChar(TargetStr), SourceLength);
result := TargetStr;
end;
页: [1]
查看完整版本: 实现繁体字到简体字的转换函数