摘要：1: 引用单元Comobjprocedure TForm1.Button1Click(Sender: TObject);var s:string;begin s:=self.Eval('('+edit1.Text+edit2.Text+edit3.Text+'/3*1000)/'+edit5.Text); self.Edit4.Text:=s;end;function TForm1.Eval(expStr: string): string;var js:OleVariant;begin js:=CreateOleObject('ScriptControl 阅读全文