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

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