如何使EDIT控件内只输入数字？

Question

很好办，在OnKeyPress事件内输入以下语句begin
  if not (key in ['0'..'9']) then
    Key := #0;
end;

Answer 1

可以用另外一个方便的控件哪，maskEdit感觉挺好用的，还可以设置输入数据的格式
试试吧！

Answer 2

推荐使用MaskEdit控件，可以自定义输入数据的格式，非常好用！

Answer 3

procedure TForm1.Edit1Exit(Sender: TObject);
var
  R: Real;
  E: Integer;
begin
  Val(TEdit(Sender).Text, R, E);
  if E <> 0 then begin
    //ShowMessage('Err');
    TEdit(Sender).SetFocus;
  end;
end;

Answer 4

其实方法还是
 STRTOINT(EDIT1.TEXT) RO STRTOFLOAT(EDIT1.TEXT);
简单。

Answer 5

好象公司里爱考这个问题的！easy

Answer 6

参考Delphi6新函数
TryIntToStr()
TryFloatToStr()

Answer 7

to：MSHawk(憨憨)　，应该加一个条件，不然不好用的（注：''是BackSpace的值）
    if (not (key in ['0'..'9'])) and (key <> '') then
    Key := #0;