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

2019-09-08 23:09:11

字体：大中小

来源：转载

供稿：网友

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

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

上一篇：在程序运行时自动注册ActiveX控件

下一篇：用Delphi编写安装程序