得到四则混合运算的值（方法三）

     在Delphi中解析公式， 我们可以自己写相关函数， 当然亦可以把任务交给SQL去处理， 这里还有一个方法

就是调用COM元件ScriptControl的Eval方法来处理。具体实例代码如下：

 

function Eval(expStr: string): string;
var
  js: OleVariant;
begin
  js := CreateOleObject('ScriptControl');
  js.Language := 'JavaScript';
  Result := js.Eval(expStr);
  js := Unassigned;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(Eval('((1+4)-5)/(1)'))
end;

 

     相信具体应用的时候大家可以自由发挥了……