教你如何用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.