请问在EDIT里如何判断是不是数字？

Question

还有小数点如何判断：）

Answer 1

我想　不要实时判断
再调用时在判断
try
  strtofloat(edit1.text);
except
 //错误
end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   case Key of
     '0'..'9':   ;      //对数字键响应
              #8:   ;     //对退格键响应
             #13:   seekClick(Sender);//进行查询
          '.':      ;     //小数点
        else
        begin
        key:=#8;
        playsound('',0,snd_async);//声音提示
        end;
   end;
end;

Answer 3

用异常处理很方便的
try
  strtoint(edit1.text);
  showmessage('都是数字');
except
  showmessage('不都是数字');
  
end;

Answer 4

或者用
    if key in['0'..'9','.']
        then showmessage(正确）
        else showmessage(不正确)

Answer 5

deniler(deniler) 
你的方法有问题,如果我输入3.3.3