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 vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题

Delphi 资源文件管理 resources and images

Delphi webservices传数据

Delphi datasnap使用ipv6

Delphi fmx 绘制非常精确的 时分秒针

如何让dbgrid显示序号？

Delphi中url的汉字编码

Delphi 实现文件实施监控

Delphi 搭配hotkeyedit控件来解决问题

Delphi getmimetypefromfile 获取文件mime类型

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

转载请注明出处：木庄网络博客 » Delphi XE5 android实现繁体字到简体字的转换函数