|
在写程序的过程中，难免会出现各种各样的情况，有的情况也许不是我们想要的。有的人也许会用很多判断要严格控制程序，使其不会出现异常情况，但这样做可能会增加写程序的难度。其实我们还可以用一种更加简便的方法，那就是异常。在程序中合理的使用异常将使你在写程序中省去很多烦恼。在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。这两种捕捉异常的方法是有差别的，各有各的用处。
|
