调用脚本!<br><br>procedure TForm1.BitBtn2Click(Sender: TObject);<br>var<br> vScript,x: Variant;<br>begin<br> vScript := CreateOleObject('ScriptControl');<br> vScript.Language := 'JavaScript';<br> x:= vScript.Eval('(12+3)*5');<br> showmessage(x);<br>end;<br>