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

网上de坏人

于 2011-07-27 23:21:40 发布

阅读量5.9k

点赞数

文章标签： delphi function integer

本文链接：https://blog.csdn.net/chinazhd/article/details/6639411

版权

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