Ich arbeite derzeit daran, meine Graphenbibliothek in gerichtete und ungerichtete Graphen aufzuteilen. Dabei ist viel Code redundant, so dass ich mir einen TBasicGraph als Elternklasse konstruiert habe. Jetzt habe ich aber ein Proble mit der Verwaltung der Kanten.
TDirectedGraph verwaltet Kanten vom Typ TDirectedEdge
TUndirectedGraph verwaltet Kanten vom Typ TEdge
Die Elternklasse TBasicGraph soll eine gemeinsame Elternklasse aller Kanten nutzen, nämlich TBasicEdge.
Das klappt soweit ganz gut. Aber ich muss alle Kanten in einer Liste verwalten. Das ganze sah bisher so aus:
Delphi-Quellcode:
TDirectedEdgeList<T, V> = class(TList < TDirectedEdge < T, V >> );
TEdgeList<T, V> = class(TList < TEdge < T, V >> );
Durch diese "doppelte" Verschachtelung bin ich jetzt überfragt, wie ich eine TBasicEdgeList konstruieren kann, von denen die beiden anderen Klassen abgeleitet sind.
Edit: Eine Idee wäre den konkreten Datentyp als dritten generischen Parameter mitzugeben und über Constraints entsprechend einzuschränken.
Delphi-Quellcode:
TBasicEdgeList<T, V, ET: TBasicEdge<T, V>, constructor> = class(TList < ET < T, V >> );
TDirectedEdgeList<T,V> = class(TBasicEdgeList<T,V,TDirectedEdge<T,V>>);
Das scheitert aber schon an der ersten Deklaration: "Undeklarierter Bezeichner: 'ET<,>' "