德爾福獲取程式異常資訊

補充

如果要獲取整個程式錯誤，則需要在專案檔案中編寫異常處理

program project1;

usesforms, sysutils,unit1 in '' ;

r *.res}

begintry

= true;

form1);

except

on e: exception do

error', 16);

end;end;end.

是的，Delphi 中的異常處理非常好，下面是乙個示例：

procedure : tobject);

var ii:integer;

beginusedtime:=0;

true;請嘗試以下過程。 中間新增了對使用時間的判斷。 如果時間長於計畫時間，則會引發異常。

for ii:=1 to 100000000 do

if usedtime>=2 then

raise 'your custom error message! for example : timeout!');引發自定義異常。

end;except

在這裡你可以在 e： exception do begin....end;以捕獲錯誤訊息。

showmessage('timeout!');

false;

end;end;

procedure : tobject);

beginusedtime:=usedtime+1;

end;end.

這裡的關鍵是在滿足您設定的時間條件後丟擲乙個異常！ 這允許程式直接進入 except 語句。

1.復合句（或句結構、句架、句型等）1.廣泛。

tryfinallyend 和。

tryexcept

end2，很好。

tryexcept

關於例外 1：

發生異常 1 時該怎麼辦。

關於例外 2：

發生異常 2 時該怎麼辦。

在異常 n 上：

發生異常 N 時該怎麼辦。

結束2。簡單的宣告。

Raise 主動丟擲異常，供外部異常處理機制處理;如果程式沒有自己的處理機制，則由作業系統處理，或者最外層的處理機制是作業系統，處理方法一般是彈出對話方塊。

3.巢狀方法示例。 try

tryexcept

onex1:

doex1;

onex2:

doex2;

onexn:

raise;

不要自己處理，按外層處理。

endfinallyend