Interfaces Generics

[Jonas Shinaniganz]

Eine kurze Frage zum Thema.

Wie muss Ich meinen Code ändern damit der "Publisher" Elemente, welche das Interface "ISubscriber" implementieren, aufnimmt?

Delphi-Quellcode:

  ISubscriber = interface
    procedure GetNewspaper(Newspaper : TNewspaper);
  end;

  // Die generische Liste soll Elemente, welche das Interface implementieren, verwalten
  TPublisher = class(TObjectList<ISubscriber>)
  public
    procedure AddSubscriber(ISubscriber);
    procedure RemoveSubscriber(ISubscriber);
    procedure MessageAllSubscriber;
  end;

Ich kann die Generische Klasse aber nur mit einem konkreten Klassen-Parameter vererben oder instanzieren.

Ich will aber das da oben Wieso sollte meiner generischen Liste nicht das Interface genügen? Das wäre echte Kapselung.

Was kann ich machen?

[mjustin]

Zitat von Jonas Shinaniganz:

Eine kurze Frage zum Thema.
Wie muss Ich meinen Code ändern damit der "Publisher" Elemente, welche das Interface "ISubscriber" implementieren, aufnimmt?

Delphi-Quellcode:

type
 ISubscriber = interface
    procedure GetNewspaper(Newspaper : TObject);
  end;

  // Die generische Liste soll Elemente, welche das Interface implementieren, verwalten
  TPublisher = class(TList<ISubscriber>)
  public
    procedure AddSubscriber(S: ISubscriber);
    procedure RemoveSubscriber(S: ISubscriber);
    procedure MessageAllSubscriber;
  end;

Erklärung: TList kann Schnittstellen, TObjectList nicht.

Stilistisch würde ich aber keine AddSubscriber / RemoveSubscriber Methoden deklarieren, denn wenn diese eigenen Code enthalten der in der Oberklasse Add/Remove Methode nicht enthalten ist, könnten Klienten der Klasse weiter auf Add/Remove zugreifen (absichtlich oder unabsichtlich) und damit den eigenen Code umgehen.

[Jonas Shinaniganz]

Liegt das einfach daran, das Add und Sub aus IMath und _AddRef, _Release und QueryInterface aus IInterface dort nicht implementiert sind?

Ich wollte doch auchnoch das Typecasting umgehen. Ach Ich sehe grade, du verwendest auch die generische TList. Okay gut.

Und wenn Ich jetzt noch sowas wie OwnsObjects haben möchte? Selbst schreiben?

[Bummi]

OwnsObjects bei interfaces ?

[Jonas Shinaniganz]

Ja "OwnsObjects bei interfaces" . Das wäre nett.

Aber ich merke schon an der Art deines Posts, da will ich scheinbar zu viel / etwas was nicht möglich ist. Auf das ich mit nachdenken wohl auch selbst kommen sollte.

[Jonas Shinaniganz]

Zitat:

Stilistisch würde ich aber keine AddSubscriber / RemoveSubscriber Methoden deklarieren, denn wenn diese eigenen Code enthalten der in der Oberklasse Add/Remove Methode nicht enthalten ist, könnten Klienten der Klasse weiter auf Add/Remove zugreifen (absichtlich oder unabsichtlich) und damit den eigenen Code umgehen.

Ich wollte eigentlich nur bessere Namen für die Add / Remove Methoden erzielen. Vielleicht sollte Ich die TObjectList besser als Feld meiner TPublisher Klasse deklarieren, ich denke, dann trifft es eher die Art, wie ich sie mir in meinem Konzept ausgedacht habe.

Delphi-Quellcode:

TPublisher 
private
  Subscribers : TList;
public
  procedure AddSubscriber(Subscriber : ISubscriber);
  procedure RemoveSubscriber(Subscriber : ISubscriber);

In dem oberen Beispiel kann Ich ja auch noch die generische Version der TList nehmen.