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

//判断字符是否是汉字

//如果是汉字那么,返回 True,如果不是汉字,那么返回 False

function IsMBCSChar(const ch: Char): Boolean;

begin

Result := (ByteType(ch, 1) <> mbSingleByte);

end;

来源:http://www.delphitop.com/html/zifuchuan/322.html