Delphi XE5 android实现繁体字到简体字的转换函数-木庄网络博客

本文整理自网络，侵删。

 介绍

本文章介绍了Delphi 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;

相关阅读 >>

Delphi从全路径中分离路径,有'\'

Delphi xe使用tjsonobject解析json数据

Delphi 对非活动窗口进行屏幕截图

xp/2003下Delphi最简单的方法开放3389

Delphi memo 自动滚动到最底下

关于Delphi xe2的fmx的一点点研究之消息篇

Delphi runasadmin 运行程序并申请管理员权限

Delphi win32_networkadapter 网卡参数说明

Delphi 动态生成进度条窗体

Delphi richedit控件中插入图片bmp(bmp,文件),gif(文件)

更多相关阅读请进入《Delphi》频道 >>