生成BIG5字符集所有字符

最新推荐文章于 2026-05-25 08:17:26 发布

原创最新推荐文章于 2026-05-25 08:17:26 发布 · 2.0k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#file #byte #c

收录于

Delphi 专栏收录该内容

15 篇文章

订阅专栏

博客可能围绕C语言中文件和字节相关内容展开，涉及文件操作、字节处理等信息技术方面知识，但因内容缺失，具体细节不明。

 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.