豆豆网 > 技术应用 > 程序设计 > Delphi > delphi教程 > 正文

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

豆豆网技术应用频道 2007年03月20日【字号：小中大】收藏本文

本文详细介绍数学表达式的计算—如何捕捉异常

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

责编：豆豆技术应用

正在加载评论...