Affichage liste chainée

[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 ?

[jovalise]

Envoyé par lefty972

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

Code :

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.