2011计算机等考Delphi讲义：异常处理与程序调试

　　12.3.6 利用异常响应编程

　　利用异常处理机制不仅能使程序更加健壮，而且也提供了一种使程序更加简捷、明了的途径。事实上，使用自定义异常类就是一种利用异常响应编程的方式。这里我们再讨论几个利用标准异常类编程的例子。

　　比如为了防止零作除数，可以在进行除法运算前使用if…then…else语句。但如果有一系列这样的语句则繁琐程度是令人难以忍受的。这时候我们可能倾向于使用EDivByZero异常。例如如下一段程序就远比用if…then…else实现简捷明了。

　　function Calcu(x,y,z,a,b,c:Integer):Real;

　　begin

　　try

　　Result := x/a+y/b+z/c ;

　　except

　　on EDivByZero do

　　Result := 0;

　　end;

　　end;

　　在(6.2.3)记录文件的打开与创建中就是利用异常响应来实现文件的打开或创建。

　　procedure TRecFileForm.OpenButtonClick(Sender: TObject);

　　begin

　　if OpenDialog1.Execute then

　　FileName := OpenDialog1.FileName

　　else

　　exit;

　　AssignFile(MethodFile,Filename);

　　try

　　Reset(MethodFile);

　　FileOpened := True;

　　except

　　on EInOutError do

　　begin

　　try

　　if FileExists(FileName) = False then

　　begin

　　ReWrite(MethodFile);

　　FileOpened := True;

　　end

　　else

　　begin

　　FileOpened := False;

　　MessageDlg('文件不能打开',mtWarning,[mbOK],0);

　　end;

　　except

　　on EInOutError do

　　begin

　　FileOpened := False;

　　MessageDlg('文件不能创建',mtWarning,[mbOK],0);

　　end;

　　end;

　　end;

　　end;

　　if FileOpened = False then exit;

　　Count := FileSize(MethodFile);

　　if Count > 0 then

　　ChangeGrid;

　　RecFileForm.Caption := FormCaption+' -- '+FileName;

　　NewButton.Enabled := False;

　　OpenButton.Enabled := False;

　　CloseButton.Enabled := True;

　　end;

　　总之，利用异常响应编程的中心思想是虽然存在预防异常发生的确定方法，但却对异常的产生并不进行事前预防，而是进行事后处理，并以此来简化程序的逻辑结构。