本文整理自网络，侵删。
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 xe system.netencoding 字符串base64编码解码
Delphi xe7 判断android应用程序中的通信状态类型
Delphi xe5 for android 地理定位gps
更多相关阅读请进入《Delphi》频道 >>
