简体中文与繁体中文的转换函数
16lz
2021-05-01
简体中文与繁体中文的转换函数
unit Unit1;interfaceuses 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.posted on 2009-10-13 13:54 万一 阅读(3755) 评论(7) 编辑 收藏©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,如需转载,请注明出处,否则将追究法律责任
更多相关文章
- 将字符串转换成 UTF8 编码的函数
- PHP第二课:变量,常量,魔术常量
- PHP变量的知识点
- PHP:变量的类型转换方式,变量值传递与值引用的区别,变量作用域和魔
- 变量系列教材 (四)- 在Java中进行基本类型的类型转换
- 【DB笔试面试462】如何将一个数字转换为字符串并且按照指定格式
- LOW_VALUE、HIGH_VALUE、ENDPOINT_VALUE转换--UTL_RAW、DBMS_STA
- Web页面或URL转换为PDF的在线工具
- Bitlocker分区转换失败的恢复案例