如何设计一下在edit中只允许输入数字类型

Question

最好是用最简短的方法，不能写长程序

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','.']) then Key := #0;
end;

Answer 2

procedure TForm1.TransEditKeyPress(Sender: TObject; var Key: Char);
begin
  if (key<#48)and (key<>'.') or (key>#57) then  
     key:=#0;
end;

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','.']) then Key := #0;
end;

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','.',#13,#8]) then Key := #0;
end;

Answer 5

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if((key>'9')or(key<'0'))and (key<>char(8))and(key<>char(46)) then abort;
end;