教你如何用delphi生成gbk码表

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

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

教你如何用delphi生成gbk码表

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

教你如何用delphi生成gbk码表

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范