给你个例子,只是我这里是简单的计算机表达式的值,只需要将字符串换成你要的,就可以了吧。
uses comobj;
procedure TForm1.Button5Click(Sender: TObject);
var
vScript: Variant;
str:string;
begin
str:='3 * (23 - (34/23 - 22)) + 33';
vScript:=CreateOleObject('ScriptControl');
vScript.Language := 'JavaScript';
str:=vScript.Eval(str);
showmessage(str);
end;