我要投稿
  • 您当前的位置:57365.com -> 技术教程 -> 软件开发教程 -> Delphi教程 -> 教程内容
  • [ 收藏本页教程 ]
  • 教你如何用Delphi生成GBK码表Delphi教程

    教程作者:佚名    教程来源:不详   教程栏目:Delphi教程    收藏本页
     
    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.


     
    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有