Problème Pointeur ADA.

Bonjour,
Je suis débutant en ADA , et j'ai un souci concernant les pointeurs.

Voici le fichier.ads

Code:

---

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

Type Pointeur is access Objet'Class ;     Type Cellule ; Type Ptr_Cellule is access Cellule ; Type Cellule is   record Element : Pointeur ;   Suivant : Ptr_Cellule ;   end record ; Function Moment_Total (La_Liste : in Ptr_Cellule ) return Float ;

---

et là le fichier.adb

Code:

---

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

Function Moment_total (La_Liste : in Ptr_Cellule ) return Float is   Local: Ptr_Cellule ;   Resultat : Float := 0.0 ; begin Loop if Local = Null then return Resultat ;   end if ;   Resultat := Resultat + Moment(Local.Element.all ) ; Local := Local.Suivant ;   end Loop ;   end Moment_total ;

---

Voici le code que je cherche à exécuter pour calculer le moment total d'un ensemble d'objet de classe composé de cercle , triangle , et polygone.Le moment par composant individuel j'arrive à le calculer et ça marche dans un autre fichier qui ne nous interésse pas ici.

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 31 32 33 34 35 36 37 38 39 40

With ES_Simples , Geometrie ;   Procedure Objet_Pointant is   use ES_Simples , Geometrie ; -- Pointeurs   C_p ,T_p , P_p : Pointeur ;     -- Pour former la Liste Chainees. L1 : Ptr_Cellule := new Cellule' (C_p , Null ) ;   L2 : Ptr_Cellule := New Cellule'(T_p , L1 ) ;   L3 : Ptr_Cellule := New Cellule' (P_p , L2 ) ;   La_Liste : Ptr_Cellule ;   M_Total : Float ;   Begin   Afficher ("--------Pointeurs-------------------") ;     Saut_Ligne ;   La_Liste := L1 ;   Afficher("Moment_total = ") ;     M_Total := Moment_total(La_Liste) ;   Afficher( M_Total ) ;   Saut_Ligne ;   end Objet_Pointant ;

---

La compilation donne :
[CODE]

$ gcc -c Objet_Pointant.adb
Objet_Pointant.adb:3:11: warning: file name does not match unit name, should be "objet_pointant.adb"
Objet_Pointant.adb:10:20: warning: "C_p" is never assigned a value
Objet_Pointant.adb:10:25: warning: "T_p" is never assigned a value
Objet_Pointant.adb:10:32: warning: "P_p" is never assigned a value
gnatbind -x Objet_Pointant.ali
gnatlink Objet_Pointant.ali

Code:

---

1 2	Et l'exécution du code.<code>Moment_total = 0.00000E+00

---

Le souci c'est comment affecter des valeurs aux pointeurs C_p , T_p , P_p pour qui font références à cercle , Triangle , et Polygone qui appartiennent à Objet'Class pour calculer le moment total.
Ne vous interressez pas à ES_Simples qui marche et permet la lectures et l'affichage de données.
Merci d'avance pour vos réponses.
c urgent.

Citation:

---

pour qui font références à

---

pour qu'ils fassent....



Si non, comme pour n'importe quel accès, avec " := new"

Citation:

---

Envoyé par jovalise

pour qu'ils fassent....



Si non, comme pour n'importe quel accès, avec " := new"

---

Code:

---

1 2	Bonjour, Je voulais dire que C_p , T_p , P_p sont des pointeurs vers cercle , triangle , Polygone.

---

J'avais bien comprise, mais quelle sera ta question ?

Citation:

---

Envoyé par jovalise

J'avais bien comprise, mais quelle sera ta question ?

---

Bonjour ,
En fait la question est comment affecter des valeurs aux trois Pointeurs , de manière à ce que la fonction Moment_Total puisse effectuer le calcul des moments du Cercle , Triangle , Polygone respectivement .
Cordialement.

je suppose en faisant C_p := new Cercle_Type ' (quelque chose); De même pour T_p et P_p respectivement.

[/S]

Citation:

---

Envoyé par jovalise

je suppose en faisant C_p := new Cercle_Type ' (quelque chose); De même pour T_p et P_p respectivement.

---

Code:

---

1 2	Merci JOVALISE ça marche finalement. Encore Merci.

---