生成GBK码表

最新推荐文章于 2012-06-04 18:34:53 发布

原创最新推荐文章于 2012-06-04 18:34:53 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#byte

Delphi 专栏收录该内容

15 篇文章

订阅专栏

这是一个用于生成GBK码表的程序，遍历了GBK字符集中不同分区的高位和低位字符，将组合成的字符写入到GBKCode.txt文件中。

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.