//判断字符是否是汉字 

 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;
    
//判断字符是否是汉字

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

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