Hallo,

ich habe 2 Klassen: TMyObj und als Unterklasse davon TMySubObj. Zu TMyObj gibt es eine TObjectList: "TMyObjList". Zu TMySubObj soll es jetzt auch eine TObjectList geben, die aber nicht von TObjectList abgeleitet wird, sondern von TMyObjList. Wie stelle ich das an? So hab ichs mir vorgestellt, compiliert aber nicht:

zusammenfalten · markieren

Delphi-Quellcode:

  TMyObj = class(TObject)
  private
    FFoo: string;
  published
    property Foo: string read FFoo write FFoo;
  end;

  TMySubObj = class(TMyObj)
  private
    FBar: string;
  published
    property Bar: string read FBar write FBar;
  end;

  TMyObjList = class(TObjectList<TMyObj>)
  public
    procedure Example1;
  end;

  TMySubObjList = class(TMyObjList<TMySubObj>) //TMyObjList mag der Compiler hier nicht
  public
    procedure Example2;
  end;

Das geht nicht.
Der generische Typ von TMyObjList ist bereits auf TMyObj festgelegt. Du kannst das da nicht auf TMySubObj umbiegen.
Die einzige Möglichkeit ist, dass du eine "TMyBaseList" (o.ä.) erstellst, die selbst generisch ist (ggf. mit einem constraint auf dein TMyObj):

zusammenfalten · markieren

Delphi-Quellcode:

TMyBaseList<T : TMyObj> = class(TObjectList<T>)
public
  procedure Example1;
end;

TMyObjList = class(TMyBaseList<TMyObj>)
public

end;

TMySubObjList = class(TMyBaseList<TMySubObj>)
public
  procedure Example2;
end;

Zitat von Neutral General:

Das geht nicht.

Was für eine Lösung gibt es, die meinen Anforderungen am nächsten kommt? TMySubObjList soll alle Funktionen und Prozeduren von TMyObjList nutzen können, ohne dass ich diese erneut implementieren muss. Hier in diesem Beispiel soll also procedure Example1; auch in TMySubObjList genutzt werden können.

Edit:
Ups, da warst Du schneller und hast Deine Antwort ergänzt.

Zitat von DCoderHH:

Edit:
Ups, darst Du schneller und hast Deine Antwort ergänzt.

Ja habe die Antwort ca. 3-12 Mal ergänzt, es lohnt sich also meinen Beitrag alle 10 Sekunden zu aktualisieren