教你如何用Delphi生成GBK码表

热门软件: QQ 瑞星 pplive e话通木马克星千千静听 office2000 五笔字根 Photoshop 视频分割

返回文章教程首页 >> 文章首页 >> 编程技术 >> Delphi教程 >> 教你如何用Delphi生成GBK码表

教你如何用Delphi生成GBK码表

添加时间: 2006-2-25 5:45:08 作者: Delphi教程阅读次数:70 来源: http://www.d9soft.com

　　用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.

上下文章:

上一篇文章: Action 造成cpu占用过多的奇怪问题下一篇文章: Delphi7的WebService与数据库

相关文章:

相关软件:

字母检索 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 回到顶部

教你如何用Delphi生成GBK码表

快速导航

编程技术分类导航

本类经典文章推荐

Delphi教程阅读排行

编程技术阅读总排行

广告位置