關於計算數學表達式，不同的人有自己不同的做法。有的用解析表達式的方法，那種方法需要有編譯的知識，下面用的方法很簡單，沒有幾個代碼便可以進行複雜的運算。如果表達式中有錯誤，還可以彈出對話框提示，指出相應的錯誤。本程序所用的就是標準的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這樣的語句，如果想達到上述目的只能用嵌套了，只不過那樣做將會很不好看。
總之，合理的運用異常類可以大大減化我們的編程，使我們的程序思路更加清淅。寫出來的程序更加優美。