Affichage liste chainée

Bonjour
J'ai une liste chainé déclarée comme ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10

type List is private; Empty_List : constant List; type Node; type Node_Access is access Node; type Node is record Value : Item; // Le type Item est un Type Générique Count:Natural; Next : Node_Access; end record;

---

J'aimerai crée une fonction d'affichage ou une fonction me renvoyant un String que je pourrai ensuite affichés? Mais après de nombreuse tentative impossible.
Est ce que quelqu'un pourrait m'aider ?

Citation:

---

Envoyé par lefty972

Bonjour
J'ai une liste chainé déclarée comme ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10

type List is private; Empty_List : constant List; type Node; type Node_Access is access Node; type Node is record Value : Item; // Le type Item est un Type Générique Count:Natural; Next : Node_Access; end record;

---

J'aimerai crée une fonction d'affichage ou une fonction me renvoyant un String que je pourrai ensuite affichés? Mais après de nombreuse tentative impossible.
Est ce que quelqu'un pourrait m'aider ?

---

Bonjour,

Je pense que tu devrais essayer de passer une procédure Affiche à ton paquetage List ainsi.

generic
type item_type is private;
with procedure Affiche(item : in item_type);
package List is


Tu peut ensuite faire une procédure afficher_Liste en appelant Affiche.