当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 教你如何用Delphi生成GBK码表

Delphi
在线播放器DIY
关于VisiBroker For Delphi的使用（3）
关于VisiBroker For Delphi的使用（2）
关于VisiBroker For Delphi的使用（1）
Delphi的两个实用技巧(2)巧用Windows的API函数
Delphi的两个实用技巧(1)播放Flash
delphi学习:两种方法使用xml文档
Delphi与Word之间的融合技术
Delphi中动态链接库(DLL)的建立和使用
Delphi基础:Window 消息大全使用详解下
Delphi基础:Window 消息大全使用详解上
教你在DELPHI中如何调用系统对话框
Delphi开发单机瘦小数据库程序要点
用Delphi + DirectX开发简单RPG游戏
Delphi7从入门到精通之认识Delphi编辑器
Delphi7从入门到精通之历数Delphi七个版本
Delphi学习:图像放大漫游攻略
用编程来实现24小时制到12小时制的转换
一个实际的OLE服务器的开发
Delphi一点通:如何将源代码学好

No. « 8 9 10 11 »

技术文章搜索

关键字

教你如何用Delphi生成GBK码表

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 91 ::
收藏到网摘: n/a

 
用Delphi来做一个GBK的码表，代码其实也不长，大家主要掌握了一定的技巧，就能举一反三，生成更多的其它实例了。



　　program GenGBKCode;
　　{$APPTYPE CONSOLE}
　　uses
　　SysUtils;
　　Var
　　i, j: byte;
　　mFile: textfile;
　　begin
　　AssignFile(mFile, 'GBKCode.txt');
　　Rewrite(mFile);
　　{
　　GBK字符集范围
　　分区                      高位     低位
　　----------------------------------------------
　　●GBK/1:GB2312非汉字符号: A1~A9 || A1~FE
　　●GBK/2:GB2312汉字      : B0~F7 || A1~FE
　　●GBK/3:扩充汉字        : 81~A0 || 40~FE
　　●GBK/4:扩充汉字        : AA~FE || 40~A0
　　●GBK/5:扩充非汉字      : A8~A9 || 40~A0
　　}
　　for i := $A1 to $A9 do
　　for j := $A1 to $FE do
　　Write(mFile, chr(i), chr(j));
　　for i := $B0 to $F7 do
　　for j := $A1 to $FE do
　　Write(mFile, chr(i), chr(j));
　　for i := $81 to $A0 do
　　for j := $40 to $FE do
　　Write(mFile, chr(i), chr(j));
　　for i := $AA to $FE do
　　for j := $40 to $A0 do
　　Write(mFile, chr(i), chr(j));
　　for i := $A8 to $A9 do
　　for j := $40 to $A0 do
　　Write(mFile, chr(i), chr(j));
　　Close(mFile);
　　end.