Einzelnen Beitrag anzeigen

Benutzerbild von maximov
maximov

Registriert seit: 2. Okt 2003
Ort: Hamburg
548 Beiträge
 
Delphi 2005 Professional
 
#22

Re: [Interfaces]: Anwendungsbeispiel

  Alt 15. Dez 2004, 00:17
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;
mâxîmôv.

{KDT}
  Mit Zitat antworten Zitat