生成BIG5字符集所有字符

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

program GenBig5Code;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var

i, j: byte;

mBig5File: textfile;

begin

AssignFile(mBig5File, 'c:\Big5Code.bin');

Rewrite(mBig5File);

//BIG5字符集范围: 高位$A1~$FE, 低位分为两段:$40~$7E, $A1~$FE

for i := $A1 to $FE do

begin

for j := $40 to $7E do

Write(mBig5File, chr(i), chr(j));

for j := $A1 to $FE do

Write(mBig5File, chr(i), chr(j));

end;

Close(mBig5File);

end.

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