数学表达式的计算——如何捕捉异常

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

在写程序的过程中,难免会出现各种各样的情况,有的情况也许不是我们想要的。有的人也许会用很多判断要严格控制程序,使其不会出现异常情况,但这样做可能会增加写程序的难度。其实我们还可以用一种更加简便的方法,那就是异常。在程序中合理的使用异常将使你在写程序中省去很多烦恼。在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这样的语句,如果想达到上述目的只能用嵌套了,只不过那样做将会很不好看。

总之,合理的运用异常类可以大大减化我们的编程,使我们的程序思路更加清淅。写出来的程序更加优美。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航