880      阿里云  技术社区[云栖]

delphi 简繁体转换函数

uses Winapi.Windows;
//简繁体装换函数
function Cn2Big(CnStr: string): string;
var
  Len: Integer;
begin
  Len := Length(CnStr);
  SetLength(Result, Len);
  LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(CnStr), Len, PChar(Result), Len);
end;

function BIG2cn(bigStr: string): string;
var
  Len: Integer;
begin
  Len := Length(bigStr);
  SetLength(Result, Len);
  LCMapString(GetUserDefaultLCID, LCMAP_SIMPLIFIED_CHINESE, PChar(bigStr), Len, PChar(Result), Len);
end;

最后更新：2017-05-07 07:57:21

  上一篇： Agent admitted failure to sign using the key

  下一篇： 5月5日云栖精选夜读：计算成就价值，数据实现梦想——达科在DT时代转型历程的分享