在 Delphi 中判断一个字符是中文的方法

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

注：只能判断AnsiString类型的

参看StrUtils.ByteType函数

引用http://www.cnblogs.com/myqiao/archive/2005/08/29/225527.html