本文整理自网络，侵删。
Delphi简体中文与繁体中文的转换函数
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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;
{调用测试}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GB2Big('汉字繁简转换')); {?h字繁??D?Q}
ShowMessage(Big2GB('?h字繁??D?Q')); {汉字繁简转换}
end;
end. 相关阅读 >>
Delphi ioutils tdirectory获取一个目录下所有文件名，包括子目录
Delphi中的处理事件 application.processmessages
Delphi获取计算机的工作组信息和获取工作组中的计算机名称
更多相关阅读请进入《Delphi》频道 >>
