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
●GBK/2:GB2312汉字 : B0~F7 || A1~FE
●GBK/3:扩充汉字 : 81~A0 || 40~FE
●GBK/4:扩充汉字 : AA~FE || 40~A0
●GBK/5:扩充非汉字 : A8~A9 || 40~A0
}
for i := $A1 to $A9 do
for j := $A1 to $FE do
Write(mFile, chr(i), chr(j));
for i := $B0 to $F7 do
for j := $A1 to $FE do
Write(mFile, chr(i), chr(j));
for i := $81 to $A0 do
for j := $40 to $FE do
Write(mFile, chr(i), chr(j));
for i := $AA to $FE do
for j := $40 to $A0 do
Write(mFile, chr(i), chr(j));
for i := $A8 to $A9 do
for j := $40 to $A0 do
Write(mFile, chr(i), chr(j));
Close(mFile);
end.
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
