delphi 简体中文与繁体中文的转换函数
来源:互联网 发布:淘宝皇冠店卖多少钱 编辑:程序博客网 时间:2024/05/21 10:08
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('汉字繁简转换')); {漢字繁簡轉換}
ShowMessage(Big2GB('漢字繁簡轉換')); {汉字繁简转换}
end;
end.
- delphi 简体中文与繁体中文的转换函数
- 简体中文与繁体中文的转换函数
- 简体中文与繁体中文的转换函数
- 简体中文转换为繁体中文的PHP函数
- 繁体中文转换为简体中文的PHP函数
- 繁体中文转换为简体中文的PHP函数
- 简体中文转换为繁体中文的PHP函数
- 简体中文转换为繁体中文的PHP函数
- 繁体中文转换为简体中文的PHP函数
- 简体中文与繁体中文的互相转换
- 简体中文和繁体中文的转换
- Python 繁体中文与简体中文相互转换
- Python 繁体中文与简体中文相互转换
- 繁体中文转换为简体中文的PHP类
- 简体中文转换为繁体中文的PHP类
- 简体中文转换为繁体中文
- 简体中文转换繁体中文
- 简体中文与繁体中文互换
- About Scintilla Folding Symbols Setting
- Android:java.io.File
- linux data
- ASP.NET MVC案例教程(基于ASP.NET MVC beta)——第七篇:闲话ASP.NET MVC
- 启动多个tomcat
- delphi 简体中文与繁体中文的转换函数
- 开始进行 64 位 Windows 系统编程之前需要了解的所有信息
- linux瓶颈分析步骤
- Gson解析json
- Mac OS X 10.8.3反编译Android apk
- ASP.NET MVC案例教程(基于ASP.NET MVC beta)——第五篇:MVC整合Ajax
- Android请求注册服务过程源码分析
- 设置tomcat中的编码为utf-8
- 死索的java实现