用delphi生成GBK 中文编码 表(4~5) GBK/4~5: 0xAA40~0xFEA0(部分) 扩充汉字 包括繁体 0xA

http://www.cnblogs.com/jfyes/archive/2009/09/24/1573638.html

GBK 中文编码： (* GBK是GB2312的扩展，是向上兼容的，因此GB2312中的汉字的编码与GBK中汉字的相同。
GBK中每个汉字仍然包含两个字节， 第一个字节的范围是0x81-0xFE（即129-254），第二个字节的范围是0x40-0xFE
（即64-254）。GBK中有码位23940个， 包含汉字21003个。
--------------------------------------
GBK/1: 0xA1A0~0xA9EF(部分) GB2312非汉字符号
GBK/2: 0xB0A0~0xF7FE(部分) GB2312汉字
上面两个是GB2312的扩展，是向上兼容的;
--------------------------------------------------------------
GBK/3: 0x8140~0xA0FE(部分) 扩充汉字 包括繁体 ---->上一篇博客已发表
GBK/4: 0xAA40~0xFEA0(部分) 扩充汉字 包括繁体
GBK/5: 0xA840~0xA995(部分) 扩充非汉字

procedure Tfm_Words.Button5Click(Sender: TObject);
var
A, B: Cardinal;
I, J: Integer;
sHex: string;
s1: WideString;
ss: string;
begin
//GBK/5: 0xA840~0xA995(部分) 扩充非汉字
ss := #13#10+
' GBK/5: $A840~$A996(部分) 扩充非汉字 '#13#10+
' jfyes 2008-07-07'#13#10#13#10;

for I:= $A8 to $A9 do
begin

for J := $40 to $96 do
begin

sHex := Format('$%.2x%.2x', [I, J]);
A := SysUtils.StrToIntDef(sHex, 0);

if J = $40 then
ss := ss+ 'code +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F ';

if J in [$40, $50,$60, $70, $80,$90, $A0, $B0, $C0, $D0, $E0, $F0] then
ss := ss + #13#10 + sHex+ #32;

if J <> $7F then
ss := ss + Char(I) + Char(J) + #32
else ss := ss + #32#32#32

end;
ss := ss + #13#10#13#10;
end;
self.memo1.lines.add(ss, True);
end;　　

执行结果如下：
------------------------------------------------------------------------------
GBK/5: $A840~$A996(部分) 扩充非汉字

code +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F
$A840 ˊ ˋ ˙ – ― ‥ ‵ ℅ ℉ ↖ ↗ ↘ ↙ ∕ ∟ ∣
$A850 ≒ ≦ ≧ ⊿ ═ ║ ╒ ╓ ╔ ╕ ╖ ╗ ╘ ╙ ╚ ╛
$A860 ╜ ╝ ╞ ╟ ╠ ╡ ╢ ╣ ╤ ╥ ╦ ╧ ╨ ╩ ╪ ╫
$A870 ╬ ╭ ╮ ╯ ╰ ╱ ╲ ╳ ▁ ▂ ▃ ▄ ▅ ▆ ▇
$A880 █ ▉ ▊ ▋ ▌ ▍ ▎ ▏ ▓ ▔ ▕ ▼ ▽ ◢ ◣ ◤
$A890 ◥ ☉ ⊕ 〒 〝 〞 

code +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F
$A940 〡 〢 〣 〤 〥 〦 〧 〨 〩 ㊣ ㎎ ㎏ ㎜ ㎝ ㎞ ㎡
$A950 ㏄ ㏎ ㏑ ㏒ ㏕ ︰ ￢ ￤  ℡ ㈱  ‐   
$A960 ー ゛ ゜ ヽ ヾ 〆 ゝ ゞ ﹉ ﹊ ﹋ ﹌ ﹍ ﹎ ﹏ ﹐
$A970 ﹑ ﹒ ﹔ ﹕ ﹖ ﹗ ﹙ ﹚ ﹛ ﹜ ﹝ ﹞ ﹟ ﹠ ﹡
$A980 ﹢ ﹣ ﹤ ﹥ ﹦ ﹨ ﹩ ﹪ ﹫       
$A990       〇

procedure Tfm_Words.Button4Click(Sender: TObject);
var
A, B: Cardinal;
I, J: Integer;
sHex: string;
s1: WideString;
ss: string;
begin //GBK/4: 0xAA40~0xFEA0(部分) 扩充汉字 包括繁体
ss := #13#10+
' GBK/4: $AA40~$FEA0(部分) 扩充汉字全表 '#13#10+
' jfyes 2008-07-07'#13#10#13#10;

for I:= $AA to $FE do
begin

for J := $40 to $A0 do
begin

sHex := Format('$%.2x%.2x', [I, J]);
A := SysUtils.StrToIntDef(sHex, 0);

if J = $40 then
ss := ss+ 'code +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F ';

if J in [$40, $50,$60, $70, $80,$90, $A0, $B0, $C0, $D0, $E0, $F0] then
ss := ss + #13#10 + sHex+ #32;

if J <> $7F then
ss := ss + Char(I) + Char(J) + #32
else ss := ss + #32#32#32

end;
ss := ss + #13#10#13#10;
end;

self.memo1.lines.add(ss, True);
end;
执行结果如下：
------------------------------------------------------------

GBK/4: $AA40~$FEA0(部分) 扩充汉字全表