关于计算数学表达式，不同的人有自己不同的做法。有的用解析表达式的方法，那种方法需要有编译的知识，下面用的方法很简单，没有几个代码便可以进行复杂的运算。如果表达式中有错误，还可以弹出对话框提示，指出相应的错误。本程序所用的就是标准的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这样的语句，如果想达到上述目的只能用嵌套了，只不过那样做将会很不好看。
总之，合理的运用异常类可以大大减化我们的编程，使我们的程序思路更加清淅。写出来的程序更加优美。