如何得到汉字的编码是否在GBK范围之内？

Question

如何得到汉字的编码是否在GBK范围之内？

Answer 1

S是汉字
WORD(S[1]) shl 8 + WORD(S[2])

Answer 2

WORD(S[1]) shl 8 + WORD(S[2])这什么意思？

Answer 3

WORD(S[1])  shl  8  +  WORD(S[2]) ？

Answer 4

Delphi生成GBK码表[转]
--------------------
也许答案不是你想要的
但是希望你能举一反三
用Delphi生成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.

Answer 5

to Kshape([伟大的大伟!]) :请问：GB13000的字符集范围是多少？