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

简介: Function GBCht2Chs(GBStr: String): AnsiString; {GBK繁体转简体}Var  len:integer;  pGBCHTChar: PChar;  pGBCHSChar: PChar;Begin  pGBC...

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.

相关文章
|
2月前
|
Shell Python
9-5|python将中文转化为拼音
9-5|python将中文转化为拼音
|
5月前
|
Java
Unicode编码和中文互转(JAVA实现)
Unicode编码和中文互转(JAVA实现)
236 1
|
Python
python 汉字转拼音 实例
python 汉字转拼音 实例
171 0
又一个奇葩要求,看看Python是如何将“中文”转“拼音”的?
又一个奇葩要求,看看Python是如何将“中文”转“拼音”的?
又一个奇葩要求,看看Python是如何将“中文”转“拼音”的?
|
JavaScript Python Java
在Office的VBA代码里中文命名
在Office的VBA代码里中文命名.
1782 0
|
Python
中文编程: 已经十多年了! 你知道Python3可以用中文命名变量吗?
Python3本身支持中文命名类/方法/变量 任何额外的库和工具都不需要, 不需要, 不需要! 重要的话三遍. Python3本身就可以正确运行下面的代码: 补一句, 不光是Python3支持中文命名哦, 以后一个一个语言讲过来, 九成九你用的编程语言也支持.
1657 0
|
传感器 自然语言处理 程序员