3个回答
展开全部
try
1
2
3
except
4
end;
5
如果1发生错误,执行4;然后5
try后面的就不执行了.
楼上的 自己回去试验下,别发话.
procedure TForm4.btn2Click(Sender: TObject);
var
i,j:Integer;
k:Double;
begin
try
k:=0;
i:=0;
j:=5;
k:=j/i;//异常
k:=4;
except
i:=1;
end;
ShowMessageFmt('i:%D,j:%D,k:%f',[i,j,k]);
end;
结果 i:1,j:5,k:0.00
k:=4并没有执行.
1
2
3
except
4
end;
5
如果1发生错误,执行4;然后5
try后面的就不执行了.
楼上的 自己回去试验下,别发话.
procedure TForm4.btn2Click(Sender: TObject);
var
i,j:Integer;
k:Double;
begin
try
k:=0;
i:=0;
j:=5;
k:=j/i;//异常
k:=4;
except
i:=1;
end;
ShowMessageFmt('i:%D,j:%D,k:%f',[i,j,k]);
end;
结果 i:1,j:5,k:0.00
k:=4并没有执行.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询