生成BIG5字符集所有字符

最新推荐文章于 2023-02-21 10:00:00 发布

hydonlee

最新推荐文章于 2023-02-21 10:00:00 发布

阅读量1.9k

点赞数

分类专栏： Delphi 文章标签： file byte c

本文链接：https://blog.csdn.net/hydonlee/article/details/84374

版权

Delphi 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

 
 
 
  
  
   
   
   
   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.