首页 > > 程序设计 > delphi >

生成BIG5字符集所有字符

2008-04-09 04:24:53来源：互联网阅读 ()


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.

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有