如何得到汉字的编码是否在GBK范围之内?
解决方案 »
- 请问怎么用delphi实现access的数据库导入mssql呢?还有mssql的数据库导出为access。
- 紧急!!!50分,Win2003下运行Delphi7出现的Access Violation错误,
- 关于用adoquery调用存储过程
- 关于TQRChart的Print的用法 在线等
- 怎样用QuickReport做这样的报表?
- Delphi6中如何用OLE将SqlServer2000中保存的Word文件打开,修改后如何回存?
- 再次请教,获取DBGrid中鼠标下的记录号? 在线!
- 怎样将控件及几个form中共同的操作集成起来,做成一个独立的对象(类)啊?
- 用什么函数可以操作文件,按byte存取?请详解
- 问题:form.close与form.hide有什么区别?form.free和form.release友有何区别呢?写了几个月还能不清楚,请指教?
- 三层数据更新问题
- 动态链接库返回字符串的问题,有程序.
WORD(S[1]) shl 8 + WORD(S[2])
--------------------
也许答案不是你想要的
但是希望你能举一反三
用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.