怎么判断一个数值表达式是否合法！！！！！！！！！

Question

怎么判断一个数值表达式是否合法！！！！！！！！！
希望高手们给出代码？

Answer 1

function CheckExpression(a1,a2 : integer;) : Boolean;
var
  val : integer;
begin
  result := True;
  try
    val := a1 / a2 ;
  except
    Result := False;
  end; 
end;CheckExpression(5,0);//返回False
CheckExpression(5,1);//返回True;

Answer 2

你问得太模糊了。如果是源代码中的表达式，Delphi会自动检查是否合法，非法的表达式根本不能通过编译。如果你指的是串，例如判定在TEdit中输入的串是不是一个合法的数值（包括整数、实数、科学计数法），那么可以测试该串能否被转换成为一个浮点数（StrToFloat）即可。
确实不太明白你具体是在问什么。
关注。

Answer 3

用MS SQL的查询分析器的F5和CTRL+F5
最好的方法