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