异常和调试.docVIP

异常和调试 DELPHI基础教程 第十二章　异常处理与程序调试（二） 异常响应为开发者提供了一个按自己的需要进行异常处理的机制。try …except …end形成了一个异常响应保护块。与finally不同的是：正常情况下except 后面的语句并不被执行，而当异常发生时程序自动跳到except，进入异常响应处理模块。当异常被响应后异常类自动清除。 　　下面的例子表示了文件打开、删除过程中发生异常时的处理情况：　 uses Dialogs; var F: Textfile; begin OpenDialog1.Title := Delete File; if OpenDialog1.Execute then begin AssignFile(F, OpenDialog1.FileName); try Reset(F); if MessageDlg(Erase +OpenDialog1.FileName + ?, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin System.CloseFile(F); Erase(F); end; except on EInOutError do MessageDlg(File I/O error., mtE