下面的代码,楼主可以比较一下,有红色部分和没有红色部分的区别
procedure TMainForm.Button1Click(Sender: TObject);
var
o, o1: Object;
app, docs: System.DispatchHelper;
k, m: Double;
begin
o:= ComObj.CreateOleObject('Excel.Application');
app := System.DispatchHelper.Create(o);
o1 := app.PropertyGet('WorksheetFunction',[]);
docs := System.DispatchHelper.Create(o1);
k:=ObjectHelper.ToFloat(docs.InvokeMethod('MIN', [12,10]));
app.InvokeMethod('Quit', []);
(o1 as System.IDisposable).Dispose;
(o as System.IDisposable).Dispose;
end; |