在线等待！高手襄助！！！！！！！！！！！！

Question

如果在一个窗体的edit框中输入了不合法的值，程序会出错
需要Programreset，如果每次这样，用户会烦
如何代码捕获，当输入不合法时，用消息框提示，当点击确定时
可以重新回到输入界面，不需重新运行！
象这样的不合法：本来是整形，输入为小数；数字之间有空格......
目的：自己写代码，捕获异常！！！！！！

Answer 1

用MaskEdit代替Edit,MaskEdit可以限制很多不合法的内容！

Answer 2

var
T,I,Code:integer;
Try
Edit.text......
val(Edit1.text,i,code);
T:=StrToInt(Edit1.text);
Except 
 if code<>0 then //非法数据字
 if MessageBox('第'+IntTostr(Code)+'位有错',mtwaring,[mbyes,mbNO])=mrYes then
 Edit1.setFocus; if code=0 then //非整数
 if MessageBox(‘应为小数’,mtwarning,[mbyes,mbNO])=mrYes then
 Edit1.setFocus; 
End;