unit uObsItem;
(* ******************************************************************** *)
(* K L A S S E : TObserverItem                                          *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.0                                                	*)
(* Autor       : S. Spolwig, OSZ-Handel I, 10997 Berlin                 *)
(*               nach Christer Höstklint, Fredrik Öhman                 *)
(* Aufgabe     : Klasse hält einen Observer und einen seiner NotifyEvents*)
(* Compiler    : DELPHI 7.0                                             *)
(* Aenderung   : V. 1.0   14-OKT-04                                     *)
(* ******************************************************************** *)
interface
(* ==================================================================== *)
uses
  classes;

type
  TObserverItem = class(TObject)
  private
    FObserved: TObject;
    FObserver: TObject;
    FOnChange: TNotifyEvent;
  public
  constructor Create(theObserved: TObject);
    procedure Change;
    property Observer: TObject read FObserver write FObserver;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;

implementation
(* ==================================================================== *)

constructor TObserverItem.Create(theObserved: TObject);
(* -------------------------------------------------------------------- *)
begin
  inherited Create ;
  FObserved := theObserved ;
end;

procedure TObserverItem.Change;
(* -------------------------------------------------------------------- *)
begin
  if Assigned(FOnChange)
  then FOnChange( FObserved ) ;
end;

end.