Observer-Pattern

[Stevie]

Zitat von Codewalker:

OKay, das mit dem .Add etc. sieht da gut aus. Nur ist es in seinem Fall ein konkreter Observer. Ich möchte das als wiederverwendbare Klasse machen. Wenn ich es als generische Klasse mache TObserver<T> = class kann ich T ja nicht aufrufen, weil nicht klar ist, dass es eine Methode ist. Und ein Constraint, dass da nur Methodentypen reindürfen kenne ich leider nicht.
Ein Idee wie ich das umschiffe? Dann könnte ich das mit Stevies Lösung verbinden und wäre glücklich

TEvent<T> wirft zur Laufzeit eine Exception, wenn T kein Event oder Delegate Typ mit Rtti ist.
Dadurch, dass die Eigenschaft Invoke von T ist, kann man die auch aufrufen (z.B. e.Invoke(Button1); ).

[Codewalker]

Aber ich scheitere doch schon zur DesignTime, weil ich die Notify-Methode nicht programmieren kann.

Delphi-Quellcode:

unit thObserver;

interface

uses 
   System.Generics.Collections, Rtti;

type
  TObserver<T> = class
  private
    FEvents: TList<T>;
  public
    constructor Create;
    destructor Destroy; override;

    procedure Notify(Args: array of TValue);
    property OnEvent: TList<T> read FEvents;
  end;

implementation


{ TObserver<T> }

constructor TObserver<T>.Create;
begin
  FEvents := TList<T>.Create;
end;

destructor TObserver<T>.Destroy;
begin
  FEvents.Free;
  inherited;
end;

procedure TObserver<T>.Notify(Args: array of TValue);
var
  Event: T;
begin
  for Event in FEvents do
  begin
    Event(Args);  /// Bis hierhin ist noch alles gut, aber das hier geht ja nicht
  end;
end;

end.

[Stevie]

Zitat von Codewalker:

Aber ich scheitere doch schon zur DesignTime, weil ich die Notify-Methode nicht programmieren kann.

Schau dir einfach DSharp.Core.Events.pas an.