Ist ja voneinander abgeleitet!
Argh... gucken müsste man können. Freitag, wird Zeit fürs Wochenende.
Das funktioniert jetzt auch so:
Delphi-Quellcode:
procedure Tfrm_Main.UpdateStatusBar;
var
Summary: IPlanDataEnumerator;
begin
Summary:=TMySummary.Create;
TMySummary(Summary).Init;
ProjectData.CallEnumeratorForAllElements(Summary);
StatusBar.Panels[1].Text:='Unassigned Order Packages: '+IntToStr(TMySummary(Summary).CountUnassignedOrderPackages);
StatusBar.Panels[2].Text:='Unassigned Orders: '+IntToStr(TMySummary(Summary).CountUnassignedOrders);
end;
Aber die Variante mit einem spezielleren Enumerator-Interface ist natürlich sauberer. Werde ich nochmal so umsetzen. Die Umsetzung oben gefällt mir nicht wirklich, ist ein wenig so wie eine unverputzte Hauswand.