delphi繁体简化代码

原创于 2023-02-05 09:41:16 发布 · 192 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #繁转简 #函数

该函数GBCht2Chs用于将GBK编码的繁体中文字符串转换为简体中文。它首先通过MultiByteToWideChar计算字符串长度，然后利用LCMapString进行转换，最后释放内存并返回转换后的AnsiString。

函数

function GBCht2Chs(GBStr: string): AnsiString;
{进行GBK繁体转简体}
var
  Len: integer;
  pGBCHTChar: PChar;
  pGBCHSChar: PChar;
begin
  pGBCHTChar := PChar(GBStr);
  Len := MultiByteToWideChar(936, 0, pGBCHTChar, -1, nil, 0);
  GetMem(pGBCHSChar, Len * 2 + 1);
  ZeroMemory(pGBCHSChar, Len * 2 + 1);
  LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2);
  result := string(pGBCHSChar);
  FreeMem(pGBCHSChar);
end;

调用