老问题 ScriptControl

Question

var
   str_Y :string;
   str_X :string;
   script:OleVariant;
   s  :string;
begin      script := createOLEObject('ScriptControl');      script.language := 'JScript';
      str_y := ' function fun(x){result =sqr(x)+x ;return result;};';
      script.addCode(str_y);
      str_x:=inputbox('','请输入变量','');
      ShowMessage(script.run('fun',str_x));
end;
错误提示
错误提示 缺少对象
如果把str_y := ' function fun(x){result =sqr(x)+x ;return result;};';中的sqr(x)换成数值就通过 我怎么在里面才能用数学函数呢。在线等。～～～～～～

Answer 1

//uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
  vScriptControl: OLEVariant;
begin
  try
    vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
    vScriptControl.Language := 'VBScript';
    ShowMessage(vScriptControl.Eval(Edit1.Text));
  except
    
  end;
end;

Answer 2

我知道了 jscript 里面是没有 sqr 函数得 不过我还是要把分给你