开博维尔科技有限公司

 找回密码
 加入我们
查看: 3313|回复: 0

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

[复制链接]

664

主题

761

帖子

9万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
98930
QQ
发表于 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;
更详细的开发和使用信息,请使用以下联系方式联系我司:
电话:0757-83994417、13929988706、18923101227
QQ:800183189、3190115、29286113

邮箱:admin@757abc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

QQ|Archiver|手机版|小黑屋|开博维尔科技有限公司 ( 粤ICP备13070897号 )

GMT+8, 2020-7-8 10:06 , Processed in 0.155855 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表