使用js 进行计算

uses ComObj;

 

procedure TForm1.Button1Click(Sender: TObject);
var script: OleVariant;s:string;
begin
script := CreateOleObject('ScriptControl');
script.Language := 'JavaScript';
// script.ExecuteStatement(JsCode);
s := script.Eval(6+4);
showmessage(s);
end;