下面图老师小编要跟大家分享生成GBK码表，简单的过程中其实暗藏玄机，还是要细心学习，喜欢还请记得收藏哦！
【 tulaoshi.com - 编程语言 】
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 dofor j := $A1 to $FE do Write(mFile, chr(i), chr(j)); for i := $B0 to $F7 dofor j := $A1 to $FE do Write(mFile, chr(i), chr(j)); for i := $81 to $A0 dofor j := $40 to $FE do Write(mFile, chr(i), chr(j)); for i := $AA to $FE dofor j := $40 to $A0 do Write(mFile, chr(i), chr(j)); for i := $A8 to $A9 dofor j := $40 to $A0 do Write(mFile, chr(i), chr(j)); Close(mFile);end.
来源:https://www.tulaoshi.com/n/20160219/1602051.html
