TObservers¶

type

  TObservers = class
  public
    TCanObserveEvent = function(const aID: Integer) : Boolean of object;
    TObserverAddedEvent = procedure(const aID: Integer; 
                                const aObserver: IObserver) of object;
    property OnCanObserve: TCanObserveEvent; {rw}
    property OnObserverAdded: TObserverAddedEvent; {rw}
    function CanObserve : Boolean; overload;
    procedure AddObserver(const aID: Integer; const aIntf: IInterface); overload;
    procedure AddObserver(const aIDs: Array of Integer; 
                     const aIntf: IInterface); overload;
    procedure RemoveObserver(const aID: Integer; const aIntf: IInterface); overload;
    procedure RemoveObserver(const aIDs: Array of Integer; 
                        const aIntf: IInterface); overload;
    function IsObserving : Boolean; overload;
    function TryIsObserving : Boolean;
    function GetSingleCastObserver : IInterface;
    function GetMultiCastObserverArray : TIInterfaceArray;
    function GetMultiCastObserver : IInterfaceList;
  end;