生成BIG5字符集所有字符
2006-02-04 13:48:20 来源:WEB开发网核心提示:PRogram GenBig5Code;{$APPTYPE CONSOLE}uses SysUtils;Var i, j: byte; mBig5File: textfile;begin AssignFile(mBig5File, 'c:\Big5Code.bin'); Rewrite(mBi
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.
更多精彩
赞助商链接