正在阅读:教你如何用Delphi生成GBK码表教你如何用Delphi生成GBK码表

2004-09-03 14:49 出处:CSDN 作者:hydonlee 责任编辑:linjixiong

  用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.


察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:

相关文章

关注我们

最新资讯离线随时看 聊天吐槽赢奖品