[Interfaces]: Anwendungsbeispiel

[maximov]

Zitat von Jens Schumann:

Hallo,
ich glaube maximov meint soetwas wie dies hier.

Genau! ich freu mich, dass du dir die mühe machst und mir die zeilen aus der hand nimmst

Dies wäre eine mögliche technik Observer umzusetzen. In .Net wäre zB. ein Multicast-event geeignet. Oder die VCL hat einen Observer in TComponent, direkt in der klassenstruktur verbuddelt (RegisterNotification). Wobei auch verschiedenste nachrichten verschickt werden können; anstatt der sehr anschaulichen text-botschaft können die objekte auch ereignis-codes, klassen, befehle etc. austauschen, um auf dem neuesten stand zu bleiben.

Wobei Observer hier eigentlich OT sind

mfg,
masimov.


PS: Der vollständigkeit halber, muss man hier noch auf den Ref-counter aufpassen, oder gleich eine InterfaceListe verwenden.

Zitat:

Delphi-Quellcode:

procedure TMessanger.AddObserver(const aObserver: INotifyable); 
begin 
  FList.Add(aObserver); { TODO: _AddRef }
end; 

procedure TMessanger.RemoveObserver(const aObserver: INotifyable); 
begin 
  FList.Remove(aObserver); { TODO: _Release } 
end;