怎样控制输入数据类型

Question

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['0'..'9'] then
    showmessage('ok');
end;

Answer 1

确定键时输入一下代码即可
  Val(EDIT1.Text,I,code);
  if (code1<>0) THEN
  begin
    Messagedlg('必须为数字',mtError,[mbOK],0);
  end;

Answer 2

何必呢？用Maskedit控件不就解决了么？在其editmask属性里设置，将inputmask栏里打入n个0，就是必须输入n位数字，如果打入n个9就是最多输入n个数字。

Answer 3

maskedit不好啊，太难看，而且有数据转换问题啊