如何判断Edit是不是整型？

[wu_small]

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

[jiaxianglei]

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

[jiaxianglei]

可惜没有分,要不早就回了,哈哈.

[涩色滴人]

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

[chinaandys]

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

[肥仔胧]

没分??

[hsmserver]

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

[wu_small]

不是小的不想给分，是我自己都没分了。
下一个问题，一定多给》》》
谢谢！

[terence4444]

trystrtoint 函数搞定