[Langage] Déclaration de classes internes

Bonjour,

Je suis très habitué au C++, et démarrant un nouveau projet en Delphi, je suis confronté à quelques soucis avec le language.

Je déclare une unité contenant une classe TConvert dans la section interface. Cette classe doit utiliser d'autres objets de type TInterne en interne. Je souhaites donc déclarer TInterne dans la section implémentation de cette unité car je ne veux pas qu'elle soit visible de l'extérieur. Mon problème, c'est que je ne sais pas comment déclarer des membres privés de ma classe TConvert de type TInterne. Le compilateur refuse de compiler. Est-ce tout simplement possible ?

Par ailleurs, est-ce que quelqu'un peut me dire s'il est possible de déclarer des classes à l'intérieur d'une autre classe ?

Merci d'avance.

Bonjour

il y a une astuce de syntaxe pour faire ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type TGEN=class; //declaration forward   //section header THeader=class(TObject) public Owner:TGen; constructor create(Owner:TGen); destructor destroy;override; end;   ...... ......   //Objet principal (contient tous les autres objects) TGEN=class(tobject) //declaration de la classe public Header:THeader; //header constructor create; //constructor create destructor destroy;override; //destructor destroy end;

---

Si je me souviens bien,

Tu dois rajouter au dessus de la classe qui utilises l'autres classe la signature de la classe utilisée.

Une autre solution qui devrait marché serait de d'abord déclarer la classe qui sera utilisée dans l'autres classe et ensuite l'autre classe.


Quelque chose dans le genre :

Code:

---

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

TClasseA = Class; TClasseB = Class protected private ffChampB : TClasseA; public end;   TClasseA = Class private ffChampA : integer; end;

---

Merci de vos réponses.
Mon problème vient du fait que ma classe TConvert doit se trouver dans la section interface (pour que les utilisateurs de mon unité puisse s'en servir) et que ma classe TInterne doit se trouver dans la section implementation (elle ne doit pas être visible pour l'utilisateur de l'unité).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

interface   type   TInterne = class; <== Le type 'TInterne' n est pas encore complétement défini.   TConvert = class private a: TInterne; ... end;   implementation   type TInterne = class ... end;   [Code de la classe TInterne]   [Code de la classe TConvert]

---

Si j'essaye ça, le compilateur ne permet pas de terminer la déclaration de ma classe dans la section implementation.

salut

il te sufit de declarer un type ancetre "visible" de ta class TInterne
par exemple TObject
et ensuite le transtyper dans la partie implementation


@+ Phil

Selon ta version de Delphi, essaye quelque chose du type :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

interface type   TExterne = class private type TInterne = class public procedure proc; {...} end; var A,B : TInterne; {...} end;   implementation   procedure TExterne.TInterne.proc; begin   end;

---

gb_68: Merci de ta réponse.

J'aurais été très content si j'avais pu déclarer des classes à l'intérieur d'une autre classe ! Malheureusement, le compilateur ne veut absolument pas entendre parler d'une clause type à l'intérieur d'une classe !

Si je comprends bien, c'est possible de faire ce que tu dis à partir de quelle version de Delphi ?

Pour info, je travaille avec la version 7.

C'est disponible dans la version 2006 (donc Turbo Delphi aussi), peut-être aussi en Delphi 2005 (je ne sais plus :oops:), mais pas en Delphi 7 :( (ça c'est sûre).

La solution de anapurna devrait te convenir (mais il peut y avoir de nombreux transtypages et il ne faut pas se planter avec :aie:).

Sinon tu peux aussi faire

Code:

---

1 2 3 4 5 6 7 8 9 10

TInterne = class private ... end;   TConvert = class private a: TInterne; ... end;

---

En mettant tous les membres private ou protected (constructeurs compris), ainsi ils seront utilisables dans toute l'unité (un peu comme les membres 'amis' du c++ - en Delphi 2006 il y a strict private et strict protected pour empêcher cela ;) ) .

L'objet sera donc connu de l'extérieur, mais pas utilisable (de l'extérieur).

En résumé, je ne peux pas faire ce que je veux.:(
Bon ben je vais faire avec.

Merci à vous.

Bonjour,

Quelque chose comme ceci conviendraient

Code:

---

1 2 3 4 5 6 7 8 9

Unit Interne; Interface uses ...;     TInterne = clas (...... ; Implementation

---

Code:

---

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

Unit TConvert; Interface uses TInterne, ...;     TConvert = clas (......   Private Interne: TInterne; .... ; Implementation

---

Interne n'est pas visible depuis l'extérieure de TConvert, car interne est en private.
Pour créer un nouvelle TInterne dans une unité, il faut l'unité interne dans la close uses de l'unité.
Du cout même avec un TConvert dans l'unité on ne peut pas forcémemt créer/Manipuler un TInterne.

Citation:

---

Envoyé par Volfoni

En résumé, je ne peux pas faire ce que je veux.:(
Bon ben je vais faire avec.

Merci à vous.

---

Pour Delphi Win32 (au moins jusqu'à la version 7), il est impossible de concevoir une classe à l'intérieur d'une autre. Le langage a cependant été étendu pour .NET mais je ne suis pas sûr que cette extension soit disponible pour Delphi Win 32. A vérifier chez l'éditeur ou dans les tutoriels (je n'ai pas le temps de le faire).

cdlt

Dans les versions ne supportant pas les types internes, il est coutume d'utiliser la solution du constructeur privé :

Code:

---

1 2 3 4 5

type TInterne = class private constructor Create; end;

---