问一个很菜的问题

Question

怎么判断Edit.text中的内容是不是数字

Answer 1

try
   strtoint(Trim(edit1.text));
except
   showmessage('不是数字');
   exit;
end;

Answer 2

try 
  strtoint(Edit.text);
except
  showMessage('不是数字');
end;或者屏蔽数字
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in['0'..'9',#8])then
  begin
    key:=#0;
    MessageBeep(1);
  end;
end;

Answer 3

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

Answer 4

try
   strtoint(Trim(edit1.text));
except
   showmessage('不是数字');
   exit;
end;

Answer 5

try
   strtoint(Trim(edit1.text));
except
请问try和except是什么语句，没有看到过

Answer 6

try
  DoSomething;
Except
  //发生异常时的处理代码
  ......
end;