delphi 表达式编译器

Question

谁有delphi 表达式编译器，谢谢！！！

Answer 1

,lz是不是想用delphi自定义基本？

Answer 2

,lz是不是想用delphi自定义脚本？

Answer 3

转个贴吧
uses   ComObj   ;  
  function   Eval(expStr:   string):   string;  
  var  
          vb:   OleVariant;  
  begin  
          vb   :=   CreateOleObject('ScriptControl');  
          js.Language   :=   'VBScript';  
          Result   :=   js.Eval(expStr);  
          js   :=   Unassigned;  
  end;  
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      showmessage(Eval('((3+4)-5)/(6*7)'))  
  end;

Answer 4

更正上楼错误
uses   ComObj   ;  
  function   Eval(expStr:   string):   string;  
  var  
          vb:   OleVariant;  
  begin  
          vb   :=   CreateOleObject('ScriptControl');  
          vb.Language   :=   'VBScript';  
          Result   :=   vb.Eval(expStr);  
          vb   :=   Unassigned;  
  end;  
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      showmessage(Eval('((3+4)-5)/(6*7)'))  
  end;