繁体与简体之间的转换

繁体与简体之间的转换

DELPHI XE5测试通过  http://download.csdn.net/detail/teststudio/6464553
  

 

 

类

 

unit SimpleConvert;
interface
uses
  Classes, Windows;
type
  TTraditional = class(TObject)
  public
    function ConvertComplex(Text: String): AnsiString;
    function ConvertSimple(Text: String): AnsiString;
  end;
implementation
{ 进行GBK繁体转简体 }
function TTraditional.ConvertSimple(Text: String): AnsiString;
Var
  Len: Integer;
  pGBCHTChar: PChar;
  pGBCHSChar: PChar;
Begin
  pGBCHTChar := PChar(Text);
  Len := MultiByteToWideChar(936, 0, pansichar(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;
{ 进行GBK简体转繁体 }
function TTraditional.ConvertComplex(Text: String): AnsiString;
Var
  Len: Integer;
  pGBCHTChar: PChar;
  pGBCHSChar: PChar;
Begin
  pGBCHSChar := PChar(Text);
  Len := MultiByteToWideChar(936, 0, pansichar(pGBCHSChar), -1, Nil, 0);
  GetMem(pGBCHTChar, Len * 2 + 1);
  ZeroMemory(pGBCHTChar, Len * 2 + 1);
  LCMapString($804, LCMAP_TRADITIONAL_CHINESE, pGBCHSChar, -1,
    pGBCHTChar, Len * 2);
  Result := String(pGBCHTChar);
  FreeMem(pGBCHTChar);
end;
end.

 

使用

uses SimpleConvert;
procedure TForm1.Button1Click(Sender: TObject);
var
  a: TTraditional;
begin
  a := TTraditional.Create;
  Caption := a.ConvertSimple(Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  a: TTraditional;
begin
  a := TTraditional.Create;
  Caption := a.ConvertComplex(Edit1.Text);
end;

来自为知笔记(Wiz)