如何判断Edit是不是整型？

Question

请问各位大虾：
    如何判断Edit是不是整型？
    if Trim(Edit1.Text)=?? then
    能不能告诉我？？
谢谢！

Answer 1

procedure edit1.onkeypress(..)
begin
if not (key in ['0'..'9',chr(8),chr(13)]) then key:=#0;
end;

Answer 2

try
  a := strtoint(Edit.text);
except
  Showmessage('It is Not a Integer');
end;

Answer 3

if not (key in['0'..'9',chr(8),char(13)]) then key:=#0;

Answer 4

Try
StrToInt(Trim(Edit.Text));
except
showmessage('This is not a Int');
end;