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時代轉型曆程的分享