Delphi判断一个字符是否为汉字的最佳方法[转]

由于从 Delphi2005开始支持中文标识符，在编写 PASCAL 词法分析器的过程中遇到了这个问题，经过多次试验找到了解决方案，至今未发现问题。

代码如下：

view plainprint?

1. //判断字符是否是汉字
2. function IsHZ(ch: WideChar): boolean;
3. var
4. i:integer;
5. begin
6. i:=ord(ch);
7. if( i<19968) or (i>40869) then
8. result:=false else result:=true;
9. end;

//判断字符是否是汉字function IsHZ(ch: WideChar): boolean;var i:integer;begin i:=ord(ch); if( i<19968) or (i>40869) then result:=false else result:=true;end;

2005年1月28日：感谢滚龙的指点，已将代码改写如下：

view plainprint?

1. //判断字符是否是汉字
2. function TForm1.IsHZ(ch: Char): boolean;
3. begin
4. //返回值为 0 的时候为单字节字符，返回值为 1 的时候为多字节字符
5. if(ord(bytetype(ch,1))=1) then result:=true
6. else result:=false;
7. end;

//判断字符是否是汉字function TForm1.IsHZ(ch: Char): boolean;begin //返回值为 0 的时候为单字节字符，返回值为 1 的时候为多字节字符 if(ord(bytetype(ch,1))=1) then result:=true else result:=false;end;

2005年1月31日：谢谢滚龙再次赐教，代码已收藏！

view plainprint?

1. //判断字符是否是汉字
2. function IsMBCSChar(const ch: Char): Boolean;
3. begin
4. Result := (ByteType(ch, 1) <> mbSingleByte);
5. end;

http://vir.jxstnu.edu.cn/xieyunc/read.php?228