WEB开发网
开发学院软件开发Delphi 生成BIG5字符集所有字符 阅读

生成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.

Tags:生成 BIG 字符集

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接