Discussion :

[glandu.dulac]

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 vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Paul TOTH]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Andnotor]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Cl@udius]

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.

@+

[glandu.dulac]

@ 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.