delphi繁体简化代码

最新推荐文章于 2024-04-07 16:27:50 发布

winfredzhang

最新推荐文章于 2024-04-07 16:27:50 发布

阅读量174

点赞数

CC 4.0 BY-SA版权

文章标签： delphi 繁转简函数

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/128888295

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

函数

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;

调用