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