生成GBK码表

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航