文章分类 - Delphi笔记
记录Delphi 经典文章
摘要: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
阅读全文