生成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.