生成GBK码表

日期：2007年5月2日作者：查看:[大字体中字体小字体]

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.

（出处：急速软件下载学院）

生成GBK码表相关文章：
·生成GBK码表
·教你如何用Delphi生成GBK码表
生成GBK码表相关软件

上一篇:Delphi下的OpenGL开发

下一篇:改变Windows的缺省打印机

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

生成GBK码表

精品推荐

热点TOP10

特别推荐