Re: Question à propos des listes chaînées

procedure Copie_Liste(LC1: in adresse; LC2 : out adresse) is
	ElCourLC1 : adresse := LC1;
	ElCourLC2 : adresse;
begin
	-- Test si LC1 n'est pas vide
	LC2 := null;
	if (LC1 = null) then return; end if;
	-- Place un element fictif au départ
	Allouer(LC2);
	ElCourLC2 := LC2;
	-- Boucle sur la liste LC1
	while (ElCourLC1 /= null) loop
		-- Creation d'un nouvelle element
		Allouer(ElCourLC2.suiv);
		ElCourLC2 = ElCourLC2.suiv;
		-- Il me semble que c'est la syntaxe
		ElCourLC2.all = <ElCourLC1.el,null>;
		ElCourLC1 = ElCourLC1.suiv;
	end loop;
	-- Suppression du fictif et retour de la valeur réelle
	ElCourLC2 := LC2.Suiv;
	Liberer(LC2);
	LC2 := ElCourLC2;
end;

Voila il me semble que c'est bon, modulo peut-être quelques erreurs de 
syntaxe...
J'espere avoir pu t'aider et que c'est juste...

Anthony