Delphi 中 try…except…end 与 try…finally…end 的应用
在 Delphi 的中,提供了 try…except…end 和 try…finally…end 语句。本人在过去得编程过程中, 深刻地体会到,这两个语句的合理使用,可以带来很多好处。一方面可以使程序结构更加清晰,使得我们 不用编写大量的意外情况处理的代码;另一方面使我们可以很容易的编写出十分稳定可靠的程序。 意外控制语句? 一、我们为什么要使用 try 意外控制语句? 假设我们现在要编写一个程序,在这个程序中需要对一个远程文件进行一系列操作。先看如下代码: 代码 1: try OpenRemoteFile; UpdateRemoteFile; CloseRemoteFile; except on E: Exception do begin CloseRemoteFile; ShowErrorMessage; end; end; 这段代码中 OpenRemoteFile 和 UpdateRemoteFile 都有可能由于各种意外情况导致错误,当错误发生 后,错误句柄将被捕获,继而执行 on E: Exception do 之后的语句。 设想如果 Delphi 没有提供 try 语句,那么我们的程序将被写成: 代码 2: if OpenRemoteFile then begin if UpdateRemoteFile then CloseRemoteFile; else begin CloseRemoteFile; ShowErrorMessage; end; end else ShowErrorMessage; 不用说,这两段
程序谁更“好” ,谁更不容易出错。而且在实际使用中可能需要对远程文件做更复杂的 操作。 语句的一些简单应用。 二、try 语句的一些简单应用。
在 Delphi 编程中常常遇到一些必须互相配对的语句,例如:对象的创建和释放;文件的打开和关闭; TDataSet 的打开和关闭……。如果程序中不能很好的处理这些语句,就导致许多不可预测的现象。请参考 如下代码: 代码 3:显示一个“关于……”对话框。 frmAbout := TfrmAbout.Create(Application); try frmAbout.ShowModal; finally frmAbout.Free; end; 又见如下代码: 代码 4:备份模块备份按钮被按下的处理。由于操作时间比较长,按照 Windows 操作风格需要将光标 变成沙漏的形状,但是无论备份是否成功都应会将光标恢复缺省状态。 procedure btnBackupClick(Sender: TObject); begin Screen.Cursor := crHourGlass; try { 备份处理 } except { 当备份中发生意外后的处理 } end; Screen.Cursor := crDefault; end; 代码 5:通过 TQuery 打开一个查询读取某些信息,完成后关闭。经验表明以下代码将比较可靠。 var qry: TQuery; sErrMsg: string; begin if qry.Active then qry.Close; try qry.SQL.Clear; qry.SQL.Add('select ...'); //加入 SQL 语句 qry.Open; { 读取查询中的信息,进行有关操作 } qry.Close; except on E: Exception do begin sErrMsg := E.Message; if qry.Active then qry.Close; ShowMessage(sErrMsg); end; end; end;
三、更复杂一些的应用 首先需要了解 try 语句与 raise 语句之间的关系。其实所有能够被 try 语句捕获的意外情况都是通过 raise 语句产生的。以前的例子程序
为什么没有出现 raise,是因为
Delphi 在提供有关功能的时候已经使 用了 raise 语句。但是对于一些 Delphi 不产生意外,而我们又希望能够通过与其它意外情况相同的意外处 理,那么我们可以在语句中自己 raise 一个意外,请看以下代码。 代码 6:打开一个查询,在正常情况下至少由一条
查询结果记录,如果没有记录肯定是某个地方发生 错误,不能继续处理。 var qry: TQuery; sErrMsg: string; begin if qry.Active then qry.Close; try qry.SQL.Clear; qry.SQL.Add('select ...'); //加入 SQL 语句 qry.Open; if qry.eof and qry.bof then raise Exception.Create('意外地发现数据表空。'); { 读取查询中的信息,进行有关操作 } qry.Close; except on E: Exception do begin if qry.Active then qry.Close; { 意外情况的处理 } end; end; end; 请注意其中的“raise Exception.Create…”语句。当查询结果为空的时候,在正常情况下,
系统是