Delphi 6 Programmation Objet

**eultartuffe** · 01/05/2007, 11h58

Salut tout le monde,

Je fais un prog Objet sous Delphi sur les astres et j'ai une petite question :
J'ai des objets Planete et des objets Satellite. Une planete possède un ou plusieurs satellites. J'ai donc une propriété dans ma classe Planete nommée 'mesSatellite' qui est une collection de satellites.
Donc est ce que je dois mettre une propriété 'planete' dans la classe Satellite pour savoir à quelle planète est lié le satellite?

Nb: J'enregistre tous les astres créés (planetes et satellites) dans une classe nommée CollectionAstres

Je vous remercie d'avances pcq là, je suis vraiment pommé

**Graffito** · 01/05/2007, 12h11

Bonjour,

Donc est ce que je dois mettre une propriété 'planete' dans la classe Satellite pour savoir à quelle planète est lié le satellite?

C'est possible, mais pas forcément nécessaire.
La différence entre les 2 classes c'est que les satellites seront alloués dans leur planéte, tandis que la planète sera simplément affectée dans à la variable planète de chaque satellite.

Exemple :

Code :

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

1
2
3
4
5
6
procedure Planete.AddSatellite(Nom_de_satellite:string) ;
var NewSatellite :  Satellite ;
NewSatellite=Satelitte.Create ; 
NewSatellite.Name=Nom_de_satellite
NewSatellite.Planete=Self ;
Sattellites.add(NewSattelite)

**CapJack** · 01/05/2007, 13h43

Tout dépend de ce que tu veux faire avec ta classe. La programmation objet n'est qu'un style de programmation parfois très utile, mais qui en soi ne résout rien automatiquement, et certainement pas les choix auxquels est confronté le développeur..

Si tu veux pouvoir retrouver rapidement à quelle planète un satellite particulier appartient, alors oui, tu as intérêt à créer une variable "Planète" dans la classe Satellite, pour éviter d'avoir à utiliser dans ton programme une boucle qui, à chaque fois, devra parcourir la liste complète de toutes les planètes pour retrouver la bonne... à ta place, je créerais ce champ "Planete" quand même à toutes fins utiles.

Par ailleurs, stocker les satellites dans CollectionAstres fait à mon avis double usage, puisque les satellites sont déjà stockés dans la collection des satellites de chaque planète. Moi je ne stockerais que les Planètes dans cette variable générale. Question de rigueur et donc de fiabilité du code.

**eultartuffe** · 03/05/2007, 14h31

Merci beaucoup pour vos réponses! C'est vraiment sympa!
Mais je bloque quand même car tous les astres que je créée (planètes + satellites) (ces 2 classes héritant de la classe astre) sont ajoutés à la classe CollectionAstres.
J'ai donc ensuite, pour retrouver mes satellites, créé une propriété 'mesSatellites' dans la classe Planète afin de retrouver rapidement les satellites de la planète
Mais là je veux faire le contraire (retrouver la planète en fonction d'un satellite) et c'est donc pour simplifier (éviter de faire des boucles) que j'ai voulu créé une propriété 'planeteAssociee' dans la classe Satellite
Mais quand je fais ça, j'ai un 'circular unit references' qui m'embête vu que j'utilise ces 2 classes mutuellement...
Ouf! C'est dur à expliquer mais bon je vous assure que ça veut dire qqch!

En espérant que vous ayez compris
Merci encore pour vos réponses

**CapJack** · 03/05/2007, 14h37

Il suffit de définir les deux classes (enfin, les trois avec Astres) dans la même unité au lieu d'utiliser des unités différentes... on n'est pas obligé d'utiliser une unité pour chaque classe.

**eultartuffe** · 03/05/2007, 14h57

C'est ce que j'ai demandé à mon cher professeur à la science infuse qui m'a répondu catégoriquement qu'il fallait ABSOLUMENT une classe par unité

Y parait que c'est indispensable pour l'exam'

Bon ben si y'a vraiment pas de solution je vais pas faire de propriété planète dans la classe Satellite...Je vais encore cherché un peu mais bon
Merci beaucoup

**Pedro** · 03/05/2007, 14h59

Envoyé par eultartuffe

C'est ce que j'ai demandé à mon cher professeur à la science infuse qui m'a répondu catégoriquement qu'il fallait ABSOLUMENT une classe par unité

Y parait que c'est indispensable pour l'exam'

Certainement pour éviter la facilité des classes "amies"

**neorun** · 03/05/2007, 15h00

Bonjour,

Tu as une autre solution, tu mets la clause Uses dans la partie implementation et hop plus de références circulaires

**eultartuffe** · 03/05/2007, 15h08

Pedro, c'est quoi les classes "amies" stp?
Et neorun, j'ai essayé de faire ça mais regarde :
Code de la classe Satellite :

Code :

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
18
19
20
21
22
23
24
 
unit Satellite;
 
interface
 
uses Astre;//, Planete;
 
type
   TSatellite =
      class(TAstre)
      private
         pesanteur : Single;
      public
         procedure setPesanteur(pp_Pesanteur: Single);
         function getPesanteur : Single;
         //procedure setPlanete(pp_Planete : TPlanete);
         //function getPlanete : TPlanete;
         constructor Create(pc_Nom : String; pc_HH, pc_MM, pc_SS : Byte;
                            pc_Declinaison : Shortint;
                            pc_Distance : Integer;
                            pc_Diametre : Integer;
                            pc_Masse : Double; pc_Image : String;
                            pc_Pesanteur : Single);
   end;

Code de la classe Planete :

Code :

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
18
19
20
21
22
23
24
25
26
 
unit Planete;
 
interface
 
uses Astre, CollectionAstres, Satellite;
 
type
   TPlanete =
   class(TAstre)
      private
         pesanteur : Single;
         mesSatellites : TCollectionAstres;
      public
         procedure setPesanteur(pp_Pesanteur: Single);
         function getPesanteur : Single;
         procedure ajouterSatellite(pp_Satellite : TSatellite);
         function getUnSatellite(pf_NomSatellite : String) : TSatellite;
         constructor Create(pc_Nom : String; pc_HH, pc_MM, pc_SS : Byte;
                            pc_Declinaison : Shortint;
                            pc_Distance : Integer;
                            pc_Diametre : Integer;
                            pc_Masse : Double; pc_Image : String;
                            pc_Pesanteur : Single;
                            pc_MesSatellites : TCollectionAstres);
   end;

En fait, j'utilise la classe Planete dans la déclaration de la classe Satellite et vice versa

**neorun** · 03/05/2007, 15h18

De cette manière tu n'as plus de références circulaires

Code :

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
 
unit Satellite;
 
interface
 
uses
  Astre, Planete;
 
type
  TSatellite = class(TAstre)
  public
    maPlanete: TPlanete;
  end;
 
implementation
 
end.

et

Code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
unit Planete;
 
interface
 
uses
  Astre;
 
type
  TPlanete = class(TAstre)
  public
    procedure AddSatellite(Satellite: TAstre);
  end;
 
implementation
 
uses
  Satellite;
 
{ TPlanete }
 
procedure TPlanete.AddSatellite(Satellite: TAstre);
begin
  with (Satellite as TSatellite) do
  begin
 
  end;
end;
 
end.

Bon code

**Pedro** · 03/05/2007, 15h26

Envoyé par eultartuffe

Pedro, c'est quoi les classes "amies" stp?

C'est très simple:
Tu as 2 classes dans la même unité avec chacune des membres en private. Eh bien elles sont amies: elles peuvent lire dans les membres déclarés private de l'autre classe

Alors qu'une classe dans une autre unité ne pourra pas les lire

Je pense que c'est pour te forcer à présenter correctement ton code et à penser tes public/published de façon la plus judicieuse possible

Note: La mention strict private des nouvelles versions de Delphi les cache complètement y compris pour les classes amies.

**eultartuffe** · 03/05/2007, 15h26

Donc il faut déclarer la classe TPlanète 2 fois pour remédier au problème? Je comprend pas l'intérêt de la déclarer 2 fois...

(je suis reparti en cours je reviens ce soir)
En tout cas merci à vous tous

**neorun** · 03/05/2007, 15h27

Excuse moi mais le code que j'ai posté plus haut est faux, je te reposte le bon dans 1 minute

Edit: Voila, l'erreur est réparée tu n'auras pas de souci cette fois :p

**eultartuffe** · 03/05/2007, 17h58

Merci Pedro pour ta précision sur les classes amies, je connaissais pas du tout.
Sinon pour reprendre sur mon problème, neorun, dans la classe Satellite que m'as transmise, il doit y avoir une propriété en private 'maPlanete' (planete associée au satellite) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
uses Astre;//, Planete;
 
type
   TSatellite =
      class(TAstre)
      private
         pesanteur : Single;
         maPlanete : TPlanete;
      public
         procedure setPesanteur(pp_Pesanteur: Single);
         function getPesanteur : Single;
         .....
   end;

mais comme la classe Satellite n'est pas mise dans le uses de l'interface, ça ne marche pas (et vice versa pour la classe Planete si on fait le contraire)

**CapJack** · 03/05/2007, 18h30

Hmm... je soupçonne fort ce prof de vouloir vous faire réfléchir à la notion d'héritage.
Réfléchis donc à cette question : "qu'est-ce qu'un satellite ?".

**eultartuffe** · 03/05/2007, 18h46

euuh...ben un satellite c'est un astre (tout comme une planete) qui correspond à une et une seule planète...non?

**ShaiLeTroll** · 03/05/2007, 18h55

Personnellement, je te conseille d'étuider le TComponent et ses propriétés Owner et Components/ComponentCount, ... idem avec TControl et Parent, Controls/ControlCount ...

et si par Hasard, un TComponent est un Astre, pouf bada boum ... et au lieu de mettre un satellite dans la collection des astres (la globale) tu l'ajoute dans la collection des astres d'une planète ... et puis, tu peux pourrir la vie à ton prof, tu fais les systèmes solaires, les bras, les galaxies, les amas, ... tout ça c'est des collections ... ou une hiérarchisation, dans ce cas tu peux étudier le TTreeNodes (c'est comme l'arbre de l'explorateur Windows)

Ensuite, les professeurs, lol, en java, une 'unité' pour une classe, oui, c'est pour déploiement, le packaging, j'en ai fait à l'école, donc je suis pas allez bien loué, ..., en Delphi, lol, ton prof, il n'a jamais ouvert Classes.pas (la meilleure référence c'est quand même le code delphi lui même) ... mais bon mes profs était bien scandalisé par un break dans un for, soit disant le while c'est plus beau dans ce cas, lol, du coup, je faisais des sous fonctions avec au lieu d'un break, je mettais un exit, et là, ils n'était pas d'accord non plus , alors je sortais le code de TStrings.IndexOf, et pouf silence ...

**neorun** · 03/05/2007, 20h04

eultartuffe, le code que j'ai posté marche parfaitement en utilisant les notions d'héritage, le membre maPlanete existe bien dans Satellite et la fonction AddSatellite existe bien dans la classe Planete.

Soit il manque quelque chose et je n'ai pas compris quoi :p

Soit tu n'as pas relu le code (que j'ai modifié au passage comme dit dans mon précédent poste)

Voilou