Discussion :

[peter27x]

Hello,

sujet un poil philosophique.

si on a deux classes, chacune ayant en attributs un ou plusieurs pointeurs vers des objets de l'autre classe, est il préférable de définir ces attributs de type TObject puis de caster avec le type de classe partout dans le code de la classe où cela est nécessaire, ou bien est il préférable de définir ces attributs directement avec le type de la classe (et que dans une seule sinon on se retrouve avec le problème de la référence circulaire inter-unité, sauf à définir les deux classes dans la même unité) ?

Je me pose la question d'un point de vue lourdeur de traitement pour le processeur, devant dans un cas caster à chaque fois, et pas dans l'autre...

Je vais mettre en place le tout avec des références vers le type TObject car je trouve cela souple et trivial, mais vos avis de pros m'intéressent sur ce sujet !

Merci.

[Linkin]

On peut biaiser pour la référence circulaire normalement avec une déclaration du type:

Code :

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

1
2
3
4
5
6
 
TMaClasse1 = class;
 
TMaClasse2 = class(TObject)
private
FMonObjet: TMaclasse1;

et définir TMaClasse1 dans un autre fichier et la mettre dans les uses de l'implémentation.

[Franck SORIANO]

Non, tu ne peux pas faire ça si TMaClasse1 n'est pas complètement définie dans la même unité.

C'est même pire que ça, TMaClasse1 doit être complètement déclarée dans le même bloc Type que celui de sa déclaration forward.

Ainsi, tu peux écrire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
  TMaClasse1 = class;
  TMaClasse2 = class(TObject)
  private
    FMaClasse1 : TMaClasse1;
  end;
 
  TMaClasse1 = class(TObject)
  private
    FMaClasse2 : TMaClasse2;
  end;

Mais tu ne peux pas écrire (même dans la même unité) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TMaClass1 = class;
 
type
  TMaClasse2 = class(TObject)
  private
    FMaClasse1 : TMaClasse1;
  end;
 
  TMaClasse1 = class(TObject)
  private
    FMaClasse2 : TMaClasse2;
  end;

Tu auras une erreur :

E2086 Le type 'TMaClass1' n'est pas encore complètement défini

Sinon, pour ce qui est du cast, il faut savoir que ça ne concerne que le compilateur. Il n'y a aucune différence à l'exécution (Du moins en Delphi Win32) entre utiliser directement une variable du bon type, et faire un cast dans un autre type.
Le cast ne fait pas de conversion de la variable, il se contente de dire au compilateur de l'interpréter différemment.

Par contre c'est différent si tu travailles avec des interfaces et des objets COM.

[peter27x]

Sinon, pour ce qui est du cast, il faut savoir que ça ne concerne que le compilateur. Il n'y a aucune différence à l'exécution (Du moins en Delphi Win32) entre utiliser directement une variable du bon type, et faire un cast dans un autre type.
Le cast ne fait pas de conversion de la variable, il se contente de dire au compilateur de l'interpréter différemment.
COM.

Merci, tu mets un terme à ce questionnement qui était mien jusqu'ici !

Donc vive les références TObject et le casting !