Generics und Vererbung

[Codewalker]

Ganz so klappt es nicht, aber du hast mich auf die richtige Idee gebracht. class muss weg, weil sonst meckert der Compiler in der vererbten Klasse, es wäre kein Klassentyp . Die direkte Zuweisung über das Gleichheitszeichen mag er auch nicht. Mit ein bißchen basteln, kommt man dann aber auf eine funktionierende Lösung:

Delphi-Quellcode:

  TBasicEdgeList<T, V, ET> = class(TList<ET>);
  TDirectedEdgeList<T, V> = class(TBasicEdgeList < T, V, TDirectedEdge < T, V >> );
  TEdgeList<T, V> = class(TBasicEdgeList < T, V, TEdge < T, V >> );

Sieht zwar aus wie ein Klammerirrgarten, aber scheint genau das zu tun, was es soll.

Edit: Kommando zurück. Mit dem dritten Parameter handele ich mir aber Ärger in der Graphenklasse ein. Ich muss das Attribut ja irgendwie deklarieren und da muss ich den dritten Parameter ja schon wieder mitgeben.

Delphi-Quellcode:

  TBasicGraph<E, V> = class
  private
    FEdges: TBasicEdgeList<E, V>;  // <-- hier knallt es weil der Parameter fehlt, den ich aber in der Basisklasse zu diesem Zeitpunkt nicht kenne