Delphi-Quellcode:
var
Summary: TMySummary;
begin
Summary:=TMySummary.Create;
Summary.Init;
ProjectData.CallEnumeratorForAllElements(Summary as IPlanDataEnumerator);
StatusBar.Panels[1].Text:='Unassigned Order Packages: '+IntToStr(Summary.CountUnassignedOrderPackages);
StatusBar.Panels[2].Text:='Unassigned Orders: '+IntToStr(Summary.CountUnassignedOrders);
end;
Uff, soviel Text und dein Problem ist dabei ganz einfach:
Verwende
NICHT die Objektinstanzen, sondern nur die Interfaceinstanzen.
Vergleiche den von mir zitierten Abschnitt nochmal ganz genau mit meinen Quelltext aus dem Post davor (Tipp: Schaue die Variablen-Deklaration an).
Und ggf. auch nochmal zum nachlesen:
http://www.nickhodges.com/page/Why-Y...eferences.aspx