delphi数学表达式的计算:捕捉异常

时间:2010-02-11 14:08:38  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:在写程序中省去很多烦恼。在Delphi中,Borland 已经为我们定义了很多异常的类,我们可以直接使用。但是如果我们不去管异常的话,会使程序的的界面乱七八糟,下面就介绍两种常用的异常捕捉方法。    关于计算数学表达式,不同的人有自己不同的做法。有的用解析表达式的方法,那种方法需要有编译的知识,下面用的方法很简单,没有几个代码便可以进行复杂的运算。如果表达式...
  正文:在写程序的过程中,难免会出现各种各样的情况,有的情况也许不是我们想要的。有的人也许会用很多判断要严格控制程序,使其不会出现异常情况,但这样做可能会增加写程序的难度。其实我们还可以用一种更加简便的方法,那就是异常。在程序中合理的使用异常将使你在写程序中省去很多烦恼。在Delphi中,Borland 已经为我们定义了很多异常的类,我们可以直接使用。但是如果我们不去管异常的话,会使程序的的界面乱七八糟,下面就介绍两种常用的异常捕捉方法。

    关于计算数学表达式,不同的人有自己不同的做法。有的用解析表达式的方法,那种方法需要有编译的知识,下面用的方法很简单,没有几个代码便可以进行复杂的运算。如果表达式中有错误,还可以弹出对话框提示,指出相应的错误。本程序所用的就是标准的SQL语句,支持很多运算,基础运算如:加、减、乘、除、整除;逻辑运算如:AND、OR、XOR、NOT;数学运算如:COS、SIN等。另外还有字符串运算,不过那没什么意义,如你输入“Left('Abcd',2)”,它就会计算出“=Ab”。由于本程序本照着上面所述的宗旨,没对这些做太多的限止,有兴趣的朋友可以事先先检查表达式的语法,然后再交给本程序计算。

{
版权所有,转载请注明出处
项目: 数学表达式的计算
作者: 黄涛 Hunter@Shentong.com.cn
目的: 学习如何使用异常类
}
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这样的语句,如果想达到上述目的只能用嵌套了,只不过那样做将会很不好看。
"delphi数学表达式的计算:捕捉异常"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12829.html


关键字:

关于《delphi数学表达式的计算:捕捉异常》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td