S
skuk88
Unregistered / Unconfirmed
GUEST, unregistred user!
try
if checkbox1.Checked then
i :=i + strtofloat(Edit1.Text);
if checkbox2.Checked then
i :=i + strtofloat(Edit2.Text);
if checkbox3.Checked then
i :=i + strtofloat(Edit3.Text);
if checkbox4.Checked then
i :=i + strtofloat(Edit4.text);
label2.caption :=floattostr(i);
Except
showmessage('请输入实数');
end;
这段代码。为什么try..Except..end不管用呢?如果我输入的不是实数他还是报错。而不是弹出showmessage对话框。我是个刚学delphi不到半个月的人。新手高手指点一下!
if checkbox1.Checked then
i :=i + strtofloat(Edit1.Text);
if checkbox2.Checked then
i :=i + strtofloat(Edit2.Text);
if checkbox3.Checked then
i :=i + strtofloat(Edit3.Text);
if checkbox4.Checked then
i :=i + strtofloat(Edit4.text);
label2.caption :=floattostr(i);
Except
showmessage('请输入实数');
end;
这段代码。为什么try..Except..end不管用呢?如果我输入的不是实数他还是报错。而不是弹出showmessage对话框。我是个刚学delphi不到半个月的人。新手高手指点一下!