try
try
......
except
...異常處理
end;
finally
...釋放資源
end;
他們之間只能互相嵌套處理,不能像java那樣排列在一起.
另外在try...except...end之間的異常處理可以這樣
try
strtoint('a');
except
on E:Exception do
begin
errstr:=e.Message;
application.messagebox(pchar(errstr),'錯誤',MB_ICONWARNING);
end;
end;
上敘方法中Exception是可以捕獲所有的異常,也可以用其他具體類型來捕獲特定類型的異常分別做處理,如
try
try
......
except
...異常處理
end;
finally
...釋放資源
end;
他們之間只能互相嵌套處理,不能像java那樣排列在一起.
另外在try...except...end之間的異常處理可以這樣
try
strtoint('a');
except
on E:Exception do
begin
errstr:=e.Message;
application.messagebox(pchar(errstr),'錯誤',MB_ICONWARNING);
end;
end;
上敘方法中Exception是可以捕獲所有的異常,也可以用其他具體類型來捕獲特定類型的異常分別做處理,如
try
{整数运算}
except
on ERangeError do
{越界处理}
on EIntError do
{其它整数异常处理}
else
{其它异常处理}
end;
具體詳細的處理還要仔細研究,這些在小應用中基本夠用