Hi,
der Ansatz mit zwei Interfaces funktioniert leider nicht. Da beschwert sich der Compiler verständlicherweise über inkompatible Typen (ISummary und IPlanDataEnumerator).
Delphi-Quellcode:
TMySummary = class(TInterfacedObject, IPlanDataEnumerator, ISummary)
(...)
procedure Tfrm_Main.UpdateStatusBar;
var
Summary: ISummary;
begin
Summary:=TMySummary.Create;
Summary.Init;
ProjectData.CallEnumeratorForAllElements(Summary); // <<<<< Hier wird ISummary als IPlanDataEnumerator übergeben
StatusBar.Panels[1].Text:='Unassigned Order Packages: '+IntToStr(Round(Summary.GetSummaryResult));
end;