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 dateof、timeof、yearof、monthof、weekof、dayof、hourof、minuteof、secondof、millisecondof �c 提取时间成分

Delphi文本转换图片

Delphi 运行js

Delphi ile dataset to xml

Delphi tnethttpclient https忽略证书验证

Delphi 进程之间传递cmd参数

Delphi winapi: movewindow - 改变窗口的位置与大小

Delphi 异或加解密

Delphi windows 编程[23] - 快捷键资源

Delphi 获取鼠标坐标大全方法

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

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