简体中文与繁体中文的转换函数

最新推荐文章于 2021-04-21 14:08:58 发布

转载最新推荐文章于 2021-04-21 14:08:58 发布 · 526 阅读

文章标签：

#string #function

delphi 专栏收录该内容

24 篇文章

订阅专栏

本文提供了两个用于字符串简体和繁体转换的函数：GB2Big 和 Big2GB。通过设置字符串长度并使用 LCMapString 函数完成转换过程。这些函数适用于需要在简体中文和繁体中文之间进行文本转换的应用场景。

function

 GB2Big(GB: string

): string

;

var



  Len: Integer;

begin



  Len := Length(GB);

  SetLength(Result, Len);

  LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result), Len);

end

;



function

 Big2GB(Big: string

): string

;

var



  Len: Integer;

begin



  Len := Length(Big);

  SetLength(Result, Len);

  LCMapString(GetUserDefaultLCID, LCMAP_SIMPLIFIED_CHINESE, PChar(Big), Len, PChar(Result), Len);

end

;