有关通过DELPHI解析表达式的,大家进来讨论讨论啊

Question

主要思路是:想通过DELPHI调用VB脚本控件执行一个表达式(如:3+5*FINT(3*3.1)),其中包含自定义函数FINT,函数可以通过用户自己设定,并组织公式,只是借助脚本执行程序执行,执行完后返回一个结果即可.
大家有做过这样的程序吗?我以前用的是一些简单的表达式,直接通过SQL执行就可返回,但要自定加入函数就不行了,听说VB有一个脚本执行控件(DLL)可能处理,请大家帮帮忙,在此万分感激!

Answer 1

那个DLL不是我们做的啊,而是Microsoft提供的ActiveX控件

Answer 2

uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
  vScriptControl: OleVariant;
begin
  vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
  vScriptControl.Language := 'VBScript';
  vScriptControl.AddCode(
'Public Function FINT(X)'#13#10 +
'  FINT = Int(X + 0.5)'#13#10 +
'End Function'#13#10
);
  Caption := vScriptControl.Eval('FINT(212.7)');
end;