Delphi中try…except…end与try…finally…end应用.docVIP

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：打开一个查询，在正常情况下至