程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 數學表達式的計算-如何捕捉異常

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

編輯:Delphi

在寫程序的過程中,難免會出現各種各樣的情況,有的情況也許不是我們想要的。有的人也許會用很多判斷要嚴格控制程序,使其不會出現異常情況,但這樣做可能會增加寫程序的難度。其實我們還可以用一種更加簡便的方法,那就是異常。在程序中合理的使用異常將使你在寫程序中省去很多煩惱。在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這樣的語句,如果想達到上述目的只能用嵌套了,只不過那樣做將會很不好看。

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved