在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;
在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;