Hiérarchie de classes

Bonjour,

Je suis en train de porter un programme VB.Net sous Delphi, je rencontre une difficulté concernant la hiérarchie des objets. Je tente une explication :

Mon programme .Net contient une classe Objet "Cube" et une classe coCubes collection de "Cube".

Parmi ses propriétés La classe Objet "Cube" compte également la classe coCubes, ça donne quelque chose du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

public class clsCoCubes Private mcol As New SortedList(Of String, clsCube) end class   Public Class clsCube private myCoCubes as clsCoCubes   Public Property coCubes() As clsCocubes Get coCubes= myCoCubes End Get Set(value As clsCoCubes) myCoCubes = value End Set End Property end class

---

La même chose en Delphi (présentation simplifiée) ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Unit unitCube; ... Interface type TCube=class myCubes:TCubes; end;   type TCubes= class(TDictionary<string, TCube>) end; ...

---

Quelqu'un connaîtrait une solution ?

Merci !

en Pascal tout ce qui est utilisé doit être déclaré en amont...qui de la poule et de l'oeuf...

pour faire simple tu peux cependant prédéclarer une classe

Code:

---

1 2 3 4 5 6 7 8 9 10 11

type TClassA = class; // prédéclaration   TClassB = class A: TClassA; end;   TClassA = class // déclaration réelle B: TClassB; end;

---

pour cela suffit que les deux classes soient déclarées dans la même unité (et dans la même section "type"), si tu veux les déclarer dans deux unités différentes, voir mon article sur les références circulaires.

Il suffit d'ajouter un déclaration "vide" avant TCube :

Code:

---

1 2 3 4 5 6 7 8 9

type TCubes = class;   TCube = class myCubes :TCubes; end;   TCubes = class(TDictionary<string, TCube>) end;

---

EDIT: Bref comme ci-dessus ;)

Salut

Pour la prédéclaration (forward declaration) je m'étendrai pas sur le sujet, Paul et Andnotor l'on déjà fait.

Par contre, pas certain qu'il faille traduire SortedList par TDictionary<K,V>.
Un TList<T> ou TObjectList<T> serait peut-être suffisant.

@+

@ Andnotor et Paul TOTH : Excellent, la "forward" déclaration, ça fonctionne à merveille !

@ Cl@udius : c'est vrai qu'un TDictionary peut paraître "bourrin" mais j'ai besoin de la <key> string pour accéder rapidement à mes items. Ceci étant dit, c'est ma toute première appli Delphi et il me reste du chemin à parcourir avant d'avoir une connaissance suffisamment fine du langage, les bons réflexes et automatismes.

Merci à tous, épatant. :ccool: