xparser.txt

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· 文本 代码 · 共 17 行

unit xParser;

//PI,E,RANDOM(n),TRUNC(n),ROUND(n),EXP(n)
//SIN(n),COS(n),TAN(n),COTAN(n)
//ARCSIN(n),ARCCOS(n),ARCTAN(n)
//LN(n),LOG10(n),LOG2(n)
//ABS(n),SQR(n),SQRT(n)
//

   function  Calculate(s:String):double;
   function  GetExpr(const s : string; var valid : Boolean) : double;
   procedure ClearExprVars;

var
   IsExprValid:Boolean = False;