请教，怎样判定输入的字符串中有汉字？？？急！！！在线等！！

Question

如题
在EDIT1中输入一串字符，怎么样判定其中是否含有汉字？？
望大侠们指点！！

Answer 1

用ASC码是不准确的，
搜一下以前的帖子 有很规范的做法 我不太记得了

Answer 2

if ord(key)>=$A1 then
   showmessage('不能输入汉字');

Answer 3

判断输入的字符的ascii码有没有超过127，超过就是汉字

Answer 4

以前在DOS下编程就是用的判断ASCII码有没有超过127来判断的

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  Str1:String;
  i:integer;
begin
  Str1 := Edit1.Text;
  for i:=1 to length(Str1) do
    begin
      if ord(Str1[i])>128 then
         begin
           ShowMessage('有汉字');
           Exit;
         end;
    end;
end;