unit uObservierteKlasse;
(* ******************************************************************** *)
(* K L A S S E : TClassToObserve                                        *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.0                                              	*)
(* Autor       : S. Spolwig, OSZ-Handel I, 10997 Berlin                 *)
(*               nach Christer Höstklint, Fredrik Öhman                 *)
(* Aufgabe     : Oberklasse für die zu beobachtenden Fachklassen        *)
(* Compiler    : DELPHI 7.0                                             *)
(* Aenderung   : V. 1.0   14-OKT-04                                     *)
(* ******************************************************************** *)

interface
(* ==================================================================== *)
uses  Classes, uObserverListe;
type  
  TClassToObserve = Class(TObject)
   protected
    fObserverMgr : TObserverListe ;
  public
    constructor Create ;
    procedure AddObserver(aNotifyEvent : TNotifyEvent ; Observer : TObject);
    procedure RemoveObserver(aNotifyEvent : TNotifyEvent ; Observer : TObject);
  end ;

implementation
(* ==================================================================== *)
constructor TClassToObserve.Create;
// -----------------------------------------------------------------------
begin
 inherited Create ;
 fObserverMgr := TObserverListe.Create(Self);
end;

procedure TClassToObserve.AddObserver(aNotifyEvent: TNotifyEvent; Observer: TObject);
// -----------------------------------------------------------------------
begin
 fObserverMgr.AddObserver(aNotifyEvent, Observer);
end;

procedure TClassToObserve.RemoveObserver(aNotifyEvent: TNotifyEvent;Observer: TObject);
// -----------------------------------------------------------------------
begin
 fObserverMgr.RemoveObserver(aNotifyEvent, Observer);
end;

end.