Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by mjustin,
16. Dez 2011
Es ist nur eine interne Verbesserung (unabhängig vom Typ der "Observables"):
if Supports(ObserverCollection.Items, INotifyObserver, fIntf) then
entfällt, wenn die ObserverCollection mit INotifyObserver statt IInterface arbeitet.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by mjustin,
15. Dez 2011
TObserverSubject = class
protected
ObserverCollection: TInterfaceList;
public
constructor Create;
destructor Destroy; override;
procedure RegisterObserver(Observer: INotifyObserver);
procedure UnregisterObserver(Observer: INotifyObserver);
procedure NotifyObservers();