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

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

代码如下：

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日：感谢滚龙的指点，已将代码改写如下：

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日：谢谢滚龙再次赐教，代码已收藏！

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