Bonjour

Voici mon problème : je cherche à concaténer 2 listes par l'intermédiaire d'une fonction.
Voici ce que j'ai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Type
   liste_elts=^doublet;
   doublet=record
      element:integer;
      suivant:liste_elts;
   end;
 
Function concat(l1,l2:liste_elts):liste_elts;
Var
   l:liste_elts;
Begin
   l:=l1;
   while (l^.suivant <> nil) do
      l:=l^.suivant;
   l^.suivant:=l2;
   concat:=l1;
End;
Bon, en gros : je me place à la fin de la liste l1, et je raccord la liste l2 au bout de celle-ci. Je pense que ça, ça ne pose pas de problème.
Mon problème est dans le renvoi de concat : que dois-je renvoyer à la fonction ? l1 ? l ?
Visiblement, d'après mes tests, ça serait encore autre chose, mais je ne vois pas quoi...
Actuellement :
* lorsque je renvoie l1, il me renvoie le l1 original
* lorsque je renvoie l, il me renvoie l2...


Merci de votre aide...