function ExecScript(Code,Lang,Func:string):string;
var
script:OleVariant;
begin
script:=CreateOleObject('ScriptControl');
script.Language:=Lang;
script.AddCode(Code);
Result:=script.Eval(Func);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
js: OleVariant;
str: string;
begin
Memo2.Lines.Text:=ExecScript(Memo1.Text,'JavaScript','signs()');
// ShowMessage(str);
end;
uj5u.com熱心網友回復：
這個不是Delphi是否支持，Delphi也只是呼叫Ole而已，你這個錯應該是Ole里給出的提示。需要檢查的是你的JS代碼及對應使用的對像。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/177063.html
標籤：VCL組件開發及應用
下一篇：我想控制Edit的內容必須是負數