數學表達式的計算―如何捕捉異常

2019-09-08 23:09:11

字體：大中小

來源：轉載

供稿：網友

在寫程序的過程中，難免會出現各種各樣的情況，有的情況也許不是我們想要的。有的人也許會用很多判斷要嚴格控制程序，使其不會出現異常情況，但這樣做可能會增加寫程序的難度。其實我們還可以用一種更加簡便的方法，那就是異常。在程序中合理的使用異常將使你在寫程序中省去很多煩惱。在Delphi中，Borland 已經為我們定義了很多異常的類，我們可以直接使用。但是如果我們不去管異常的話，會使程序的的界面亂七八糟，下面就介紹兩種常用的異常捕捉方法。

　　　　關于計算數學表達式，不同的人有自己不同的做法。有的用解析表達式的方法，那種方法需要有編譯的知識，下面用的方法很簡單，沒有幾個代碼便可以進行復雜的運算。如果表達式中有錯誤，還可以彈出對話框提示，指出相應的錯誤。本程序所用的就是標準的SQL語句，支持很多運算，基本運算如：加、減、乘、除、整除；邏輯運算如：AND、OR、XOR、NOT；數學運算如：COS、SIN等。另外還有字符串運算，不過那沒什么意義，如你輸入“Left('Abcd',2)”，它就會計算出“=Ab”。由于本程序本照著上面所述的宗旨，沒對這些做太多的限止，有興趣的朋友可以事先先檢查表達式的語法，然后再交給本程序計算。

{
版權所有，轉載請注明出處
項目：數學表達式的計算
作者：黃濤　[email protected]
目的：學習如何使用異常類
}
unit uCalcExpr;

interface

uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls, DB, ADODB;

type
　TfrmCalc = class(TForm)
　　Button1: TButton;
　　Edit1: TEdit;
　　procedure Button1Click(Sender: TObject);
　　procedure Edit1KeyPress(Sender: TObject; var Key: Char);
　private
　　{ Private declarations }
　public
　　{ Public declarations }
　end;

function CalcExpr(Expr :string):string; //計算數學表達式的函數，其中 Expr 為表達式
var
　frmCalc: TfrmCalc;

implementation

{$R *.dfm}

//這就是本程序的核心，計算表達式就靠它了
function CalcExpr(Expr :string):string;
var　qury: TADODataSet;　　　　　　
begin
　qury := TADODataset.Create(nil);
　try

　 qury.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;' +

　　　　　 'Data Source=dBASE Files';
　　qury.CommandText := 'select '+ Expr + ' as Result';
　　qury.Open　;
　　result := Expr +' = ' + qury.fieldbyname('Result').AsString;
　finally
　　qury.Free ;
　end;
end;

procedure TfrmCalc.Button1Click(Sender: TObject);
begin
　try
　　edit1.Text := CalcExpr (edit1.Text);
　except
　　on h:exception do begin
　　　showmessage(h.Message );
　　end;
　end;
end;

procedure TfrmCalc.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
　if key = #13 then Button1Click(self);
end;

end.

　　　總結：由此可見，異常的捕捉有兩種方法有兩種，一種是用 TRY...EXCEPT...END；另一種是用　TRY....FINALLY....END。這兩種捕捉異常的方法是有差別的，各有各的用處。

　　　TRY...EXCEPT...END一般用于在調用了某種方法后，我們需要捕捉其錯誤并做出相應提示的時候。如上面程序中的調用計算表達式的函數時，計算表達式的函數很有可能拋出異常，所以在調用的時候必須捕捉到其異常，做出相應的提示，或進行相關的后續處理，以免其引起系統報錯，影響程序界面的美觀。如果我們只是簡單的報一下錯，就可以簡單的在 EXCEPT...END 中間寫上報錯的相應的提示就行了。如果要想看看具體是哪種錯誤就要仿照上面的作法來捕捉錯誤了。

　　 TRY....FINALLY....END一般用于，我們在分配某種資源后，進行相關的操作，而這種操作很有可能引起異常，但我們又必須在這些操作完畢后才能釋放這種資源。有了TRY....FINALLY....END這個語句后，我們就可以在分配資源后放心大膽地把操作語句完全放在TRY....FINALLY 中，把這里面想象成可以完全順利執行的情況來操作，因為如果哪一步執行不下去，它就會跳出這個圈子進入FINALLY里面，而不會順序執行下去了。在FINALLY....END中我們可以進行一些善后工作，如釋放當初分配的資源，因為不管上面是順利執行，還是遇到異常都會執行這里面的語句的。

　　　　可見，上面的語句是為捕獲異常而設的，下面的語句是為資源分配而設的，但有的朋友說，如果我們既想捕獲異常，又想收回資源那該怎么辦？可惜的是Borland 沒有 TRY...EXCEPT....FINALLY...END這樣的語句，如果想達到上述目的只能用嵌套了，只不過那樣做將會很不好看。

　　　總之，合理的運用異常類可以大大減化我們的編程，使我們的程序思路更加清淅。寫出來的程序更加優美。

上一篇：在程序運行時自動注冊ActiveX控件

下一篇：用Delphi編寫安裝程序