生成BIG5字符集所有字符

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  beginfor 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.