Discussion :

[Geminas]

J'ai un souci avec ma pile, quand je veux ajouter un objet dedans, cette dernière reste vide, et je ne comprend pas pourquoi ><

code de la procedure d'ajout :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   procedure Deposer_Job(Taille: in Positive; User: in Unbounded_String ; Tete : in out T_Ptr_Queue) is 
      Temp : T_Ptr_Queue;
      Compteur : Positive := 1;
   begin -- Deposer_Job
      Temp := Tete;
      while Temp /= null loop
         Compteur := Compteur + 1;
         Temp := Temp.Suivant;
      end loop;
      Put(Compteur); Put(Taille); Put(User);
      Temp := new T_Queue'(Compteur , Taille, User, null);
 
      Trier(Tete);
   end Deposer_Job;

Et la structure de ma pile :

Code :

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

1
2
3
4
5
6
7
8
9
   type T_Ptr_Queue is access T_Queue;
 
   type T_Queue is
   record
      Numero       : Natural;
      Taille       : Positive;
      User         : Unbounded_String;
      Suivant      : T_Ptr_Queue;
   end record;

[Invité]

lorsque tu fais ..

Code :

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

Temp := new T_Queue'(Compteur , Taille, User, null);

C'est temps qui pointe sur le nouvel élément et non tete.

En fait tu devrais faire un truc de ce genre...

Code :

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

Temp.suivant := new T_Queue'(Compteur , Taille, User, null);

Me semble t-il.

[Geminas]

Vi c'est exact j'ai réussi à trouver la bulle entre temps merci