Delphi单元文件之-简体繁体互转

转载 2011年01月10日 15:04:00

Function GBCht2Chs(GBStr: String): AnsiString; {GBK繁体转简体}
Var
  len:integer;
  pGBCHTChar: PChar;
  pGBCHSChar: PChar;
Begin
  pGBCHTChar := PChar(GBStr);
  Len := SizeOf(pGBCHTChar);
  GetMem(pGBCHSChar, Len  + 1);
  ZeroMemory(pGBCHSChar, Len  + 1);

  //GB CHS -> GB CHT
  LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, 2147483647 );

  Result := String(pGBCHSChar);
  FreeMem(pGBCHSChar);
End;

//----------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := GBCht2Chs( Memo1.Text );
end;


unit BIG5TOGB;
interface

uses
Windows;

function GBCht2Chs(GBStr: string): AnsiString;
function GBChs2Cht(GBStr: string): AnsiString;

implementation

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);
//GB CHS -> GB CHT
LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2);
result := string(pGBCHSChar);
//FreeMem(pGBCHTChar);
FreeMem(pGBCHSChar);
end;

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

相关文章推荐

c#UTF8编码文件简体、繁体互转

c#.net现实UTF8文件简体、繁体互换程序,可将QQ国际版的繁体中文文件转换为简体中文文件...

delphi 7,2009 繁体与简体互转

  • 2012年04月05日 12:59
  • 2KB
  • 下载

【.Net码农】使用微软的 Visual Studio International Pack 1.0 进行网站简体与繁体的互转和得到汉字、拼音、笔画等相关信息

http://blog.csdn.net/net_lover/article/details/4095606 使用微软的 Visual Studio International ...

C# 同间字查询 (汉字转拼音 拼音转汉字 简体繁体互转 )

之前一直想弄个汉字转化工具,一直没能实现,今天发现原来早就可以实现了,先给各位推荐下这个库: 这两个提供这是微软亚洲汉字开发中心开发的,下面是说明: 2009年3月31日,微软发布了 Micros...

使用微软的 Visual Studio International Pack 1.0 进行网站简体与繁体的互转和得到汉字、拼音、笔画等相关信息

作者:孟宪会 阅读:2737 发表于:2009-04-19 11:24:442009年3月31日,微软发布了 Microsoft Visual Studio International Pack 1....
  • ggw128
  • ggw128
  • 2011年06月26日 21:55
  • 439

php在gbk编码下繁体与简体互转函数

php在gbk编码下繁体与简体互转函数

js中如何获取alert并且把提示信息简体繁体互转

工作中遇到这样一个问题, 之前做了很多的页面,现在要把增加多种语系,简体繁体, 所有的提示信息也要转换,因为页面有20几个,里面的alert全部加起来得有好几百个,一个一个的去改肯定是不行的, ...

用java写的简体和繁体互转软件

  • 2010年03月12日 15:00
  • 1.94MB
  • 下载

网站简体繁体互转js

  • 2017年11月16日 11:56
  • 10KB
  • 下载

水晶报表繁体转简体心得:之一 RPT文件篇

水晶报表7.0作为一个很久的版本,不支持全选、不支持批次修改,极大地制约了修改的进度。但好在“铁杵磨成针”,苦干加巧干,还是圆满、快速地完成了任务!...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi单元文件之-简体繁体互转
举报原因:
原因补充:

(最多只允许输入30个字)