开博科技|手机开单|手机商店|送货单打印软件|销售管理系统|进销存|ERP供应链管理系统

标题: 实现繁体字到简体字的转换函数 [打印本页]

作者: dianlanren 时间: 2015-6-5 14:43
标题: 实现繁体字到简体字的转换函数
本帖最后由 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;