program GenGBKCode;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i, j: byte ;
mFile: textfile;
begin
AssignFile(mFile, ' GBKCode.txt ' );
Rewrite(mFile);
{
GBK字符集范围
分区 高位 低位
----------------------------------------------
●GBK / 1 :GB2312非汉字符号: A1 ~ A9 || A1 ~ FE
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i, j: byte ;
mFile: textfile;
begin
AssignFile(mFile, ' GBKCode.txt ' );
Rewrite(mFile);
{
GBK字符集范围
分区 高位 低位
----------------------------------------------
●GBK / 1 :GB2312非汉字符号: A1 ~ A9 || A1 ~ FE