可以调用ScriptControl，省的自己去转换
uses ComObj;
演示
Function calc(const expression : String):Integer;
Var
sc : OleVariant;
begin
//expresion := ‘100+5*3’;
sc := CreateOleObject('MSScriptControl.ScriptControl.1');
sc.Language :='JavaScript';
result := StrtoInt( sc.eval(expression) );
end;
Sample: 115 := calc(‘100+5*3’);
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024