Delphi汉字简繁体转换代码

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

清风古韵

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

阅读量2.4k

点赞数

分类专栏： delphi程序设计

本文链接：https://blog.csdn.net/ttpage/article/details/9161703

版权

这段代码展示了如何在Delphi中进行汉字的简繁体转换。通过使用Unicode和Windows API函数，实现了GBK编码下的简体到繁体、繁体到简体以及BIG5到GBK、GBK到BIG5的转换功能。

摘要由CSDN通过智能技术生成

//delphi 7 Delphi汉字简繁体转换代码
unit ChineseCharactersConvert;
interface
uses
   Classes, Windows;
type
   TGBBIG5Convert = class(TObject)
   public
     class function BIG5ToGB(BIG5Str : String): AnsiString;
     class function GBToBIG5(GBStr : String): AnsiString;
     class function GBChs2Cht(GBStr: String): AnsiString;
     class function GBCht2Chs(GBStr: String): AnsiString;
end;

implementation

class function TGBBIG5Convert.BIG5ToGB(BIG5Str : String): AnsiString;
var
   Len: Integer;
   pBIG5Char: PChar;
   pGBCHSChar: PChar;
   pGBCHTChar: PChar;
   pUniCodeChar: PWideChar;
begin
   //String -> PChar
   pBIG5Char := PChar(BIG5Str);
   Len := MultiByteToWideChar(950,0,pBIG5Char,-1,nil,0);
   GetMem(pUniCodeChar,Len*2);
   ZeroMemory(pUniCodeChar,Len*2);
   //Big5 -> UniCode
   MultiByteToWideChar(950,0,pBIG5Char,-1,pUniCodeChar,Len);
   Len := WideCharToMultiByte(936,0,pUniCodeChar,-1,nil,0,nil,nil);
   GetMem(pGBCHTChar,Len*2);
   GetMem(pGBCHSChar,Len*2);
   ZeroMemory(pGBCHTChar,Len*2);
   ZeroMemory(pGBCHSChar,Len*2);
   //UniCode->GB CHT
   WideCharToMultiByte(936,0,pUniCodeChar,-1,pGBCHTChar,Len,nil,nil);
   //GB CHT -> GB CHS
   LCMapString($804,LCMAP_SIMPLIFIED_CHINESE,pGBCHTChar,-1,pGBCHSChar,Len);
   Result := String(pGBCHSChar);
   FreeMem(pGBCHTChar);