Une classe dans une classeRésolu

Question

Bonjour, j'ai un petit prob avec mon code pour avoir 2 classes dans ma classe primaire:



Type TpPersonne =  Class

    private 

         NomA : string;

        PrenomA : string;

     public

        Date_naissance : TpDate_nais; //classe

        Adresse : TpAdresse; //classe

        constructor Init(NomB, PrenomB:string);overload;

        constructor Create;Overload;



     end; 



et cela pour utiliser les m&#233;thodes de ses champs. Ensuite, j'appelle le
constructeur du second objet &#224; partir du constructeur du premier:



constructor
TpPersonne.Create;

begin

Date_naissance : =
TpDate_nais.Create;

 Adresse := TpAdresse.Create;

end;



on retrouve plus bas mes 2 autres classes : TpAdress et TpDate_nais avec les champs et constructeurs pour chacun.

Et cela ne marche pas, j'obtient comme erreur que TpDate_nais et TpAdresse ne sont pas d&#233;clar&#233;s.



Merci.

cs_Delphiprog · Accepted Answer

Avant de d&#233;clarer ta classe TpPersonne, ajoute ces deux lignes :

TpDate_nais =  class; //forward declaration
TpAdresse = class; //forward declaration

Tu peux aussi d&#233;clarer ces deux classes avant TpPersonne si elles en font pas r&#233;f&#233;rence &#224; leur tour &#224; la classe TpPersonne.

Question : pourquoi utilises-tu les directives Overload dans :
constructor Init(NomB, PrenomB:string);overload;
constructor Create;Overload;

dans la mesure o&#249; cette directive est r&#233;serv&#233;e aux fonctions  portant le m&#234;me nom  mais comportant des arguments diff&#233;rents ?

<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Inconnu Anonyme · Answer

Merci beaucoup, cela fonctionne :)



Lors de la cr&#233;ation de mon application , j'ai utilis&#233;:

constructor Init(NomB, PrenomB:string);overload;

constructor Init;Overload;



et je l'ai chang&#233; par la suite par Create.

Merci du conseil, je ne savais pas que overload; &#233;tait r&#233;serv&#233;e aux fonctions portant le m&#234;me nom!

Une classe dans une classe

2 réponses

Votre réponse

Discussions similaires