程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 教你如何用Delphi生成GBK碼表

教你如何用Delphi生成GBK碼表

編輯: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.


 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved