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.
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
