怎样判断字符串中只有中文？

Question

中文的高位是特定的
你可以参考MSDN具体我可以回去帮你查查

Answer 1

试试
for ii := 1 to length(yourstring) do
begin
  if yourstring[ii] > #127 then
  begin
    showmessage('有中文字符');
  end;
end;

Answer 2

for i := 1 to length(s) do
begin
  if ord(s[i]) > $A1 then
  begin
    showmessage('Chs');
  end;
end;

Answer 3

楼上的做法很对！中文汉字的编码信息(ASCII值)是大于127的。

Answer 4

function ByteType(const S: string; Index: Integer): TMbcsByteType;
IsDBCSLeadByte
告诉你一个非常有用的函数。
 bytetype  它可以判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或
后一位。
mbSingleByte 单字母
mbLeadByte 双字节第一位
mbTrailByte 双字节第二位