Delphi 6 Programmation Objet

Version imprimable

01/05/2007, 11h58
eultartuffe

Delphi 6 Programmation Objet

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é

Bonjour,

Citation:

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:

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)

01/05/2007, 13h43
CapJack

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.
03/05/2007, 14h31
eultartuffe

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! :D
En espérant que vous ayez compris
Merci encore pour vos réponses
03/05/2007, 14h37
CapJack

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. ;)
03/05/2007, 14h57
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' 8O 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
03/05/2007, 14h59
Pedro

Citation:

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' 8O

Certainement pour éviter la facilité des classes "amies" ;)
03/05/2007, 15h00
neorun

Bonjour,

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

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

Code:

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:

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 :(

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

Code:

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.

Code:

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 :)

03/05/2007, 15h26
Pedro

Citation:

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.
03/05/2007, 15h26
eultartuffe

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
03/05/2007, 15h27
neorun

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

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:

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) :cry:

03/05/2007, 18h30
CapJack

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 ?". ;)
03/05/2007, 18h46
eultartuffe

euuh...ben un satellite c'est un astre (tout comme une planete) qui correspond à une et une seule planète...non?
03/05/2007, 18h55
ShaiLeTroll

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 ...
03/05/2007, 20h04
neorun

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
04/05/2007, 19h23
CapJack

Citation:

Envoyé par eultartuffe

euuh...ben un satellite c'est un astre (tout comme une planete)

Et ben tu as ta réponse ! ;)

Une variable objet n'a pas besoin d'être strictement du type de l'objet qu'elle contient, elle peut être d'un type ancêtre... :ange: