生成GBK码表
2006-02-04 13:47:56 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鎯у⒔閹虫捇鈥旈崘顏佸亾閿濆簼绨绘い鎺嬪灪閵囧嫰骞囬姣挎捇鏌熸笟鍨妞ゎ偅绮撳畷鍗炍旈埀顒勭嵁婵犲嫮纾介柛灞捐壘閳ь剛鎳撻~婵嬪Ω閳轰胶鐤呯紓浣割儐椤戞瑩宕ョ€n喗鐓曟い鎰靛亝缁舵氨绱撻崘鈺傜婵﹤顭峰畷鎺戔枎閹搭厽袦婵犵數濮崑鎾绘⒑椤掆偓缁夌敻骞嗛悙鍝勭婵烇綆鍓欐俊鑲╃磼閹邦収娈滈柡灞糕偓鎰佸悑閹肩补鈧尙鏁栧┑鐐村灦閹稿摜绮旈悽绋课﹂柛鏇ㄥ灠閸愨偓濡炪倖鍔﹀鈧繛宀婁邯濮婅櫣绱掑Ο璇茶敿闂佺ǹ娴烽弫璇差嚕婵犳碍鏅插璺猴工瀹撳棝姊虹紒妯哄缂佷焦鎸冲畷鎴﹀箻鐠囧弶宓嶅銈嗘尰缁嬫垶绂嶉悙顒佸弿婵☆垳鍘ф禍楣冩倵濮樼偓瀚�

核心提示:PRogram GenGBKCode;{$APPTYPE CONSOLE}uses SysUtils;Var i, j: byte; mFile: textfile;begin AssignFile(mFile, 'GBKCode.txt'); Rewrite(mFile);{GBKé
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.
赞助商链接