XE Delphi 判断字符为中文的方法

在uses中添加System.AnsiStrings

/// Param ch--字符串

/// Param cno--字符位置

function IsZHChar(const ch: AnsiString; const cno: Integer): Boolean;

begin

　　Result := (System.AnsiStrings.ByteType(ch, cno) <> mbSingleByte);

end;