Interface und Objektreferenz offenbar noch nicht verstanden

[TiGü]

Delphi-Quellcode:

  IPlanDataEnumerator = Interface
  ['{BDB4BEB2-FFE4-429A-9007-4DA7D235E92A}']
    procedure HandlePlanDataElement(PD: TPlanData);
    procedure Init; // <--- falls alle anderen Klassen das auch brauchen, ansonsten in das entsprechende Interface verschieben
  End;

ISummary = interface(IPlanDataEnumerator)
[Irgendeine_GUID]
  function GetCountUnassignedOrderPackages : Integer;
  function GetCountUnassignedOrders : Integer;
  property CountUnassignedOrderPackages : Integer read GetCountUnassignedOrderPackages; 
  property CountUnassignedOrders : Integer read GetCountUnassignedOrders; 
end;

Delphi-Quellcode:

TMySummary = class(TInterfacedObject, IPlanDataEnumerator, ISummary)
...

Delphi-Quellcode:

var
  Summary: ISummary ;
begin
  Summary := TMySummary.Create;
  Summary.Init;
  ProjectData.CallEnumeratorForAllElements(Summary);
  StatusBar.Panels[1].Text:='Unassigned Order Packages: '+IntToStr(Summary.CountUnassignedOrderPackages);
  StatusBar.Panels[2].Text:='Unassigned Orders: '+IntToStr(Summary.CountUnassignedOrders);
end;

Viel Spaß!