首页 / 软件开发 / Delphi / 第十二章-异常处理与程序调试（二）（4）

第十二章-异常处理与程序调试（二）（4）2007-05-0712.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;

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