Liste chainée!Résolu

Question

Bonjour à tous!


je voudrais savoir comment faire une copie d'une liste chainée!

MERCI!

f0xi · Accepted Answer

non bacterius, une liste chainée n'est pas forcement au même emplacement memoire que les données.

ce sont des pointeurs créés sur le tas, donc il peuvent être n'importe ou en memoire.


avec ceci :

type
  PListeElem = ^TListeElem;
  TListeElem = record
    Elem: string;
    Suiv: PListeElem;
  end; 

var
  ListeElem : PListeElem;


function CopyListeElem(const SrcFirstElem, DestFirstElem : PListeElem): integer;
var Src, Dst : PListeElem;
begin
  result := 0;
  Src := SrcFirstElem;
  Dst := DestFirstElem;
  if (Src nil) or (Dst nil) then 
    exit;

  Dst^.Elem := Src^.Elem;
  Result := 1;

  if Src^.suiv <> nil then
    repeat
      New(Dst^.Suiv);
      Dst := Dst^.Suiv;
      Dst^.Elem := Src^.Elem;
      Src := Src^.Suiv;
      inc(result);
    until Src^.Suiv = nil;
end;

Bacterius · Answer

Ben tu fais une copie de chaîne  ou au pire une copie de mémoire ... précise ta question.

Cordialement, Bacterius !

Samou85 · Answer

Je vais essayer de préciser ma question, en fait j'ai une liste chainée 
qui est déclaré de cette façon:

type
PListeElem = ^TListeElem;
TListeElem = record
Elem: string;
Suiv: PListeElem;
end;
et je voudrais créer une liste chainée qui contienne les memes éléments que la première, voilà, j'espere que c'est plus claire!

MERCI!

Bacterius · Answer

Mais ta liste chaînée est déclarée comment ?
Si tu veux que ça soit plus simple, utilise un ShortString à la place d'un String !

Cordialement, Bacterius !

Bacterius · Answer

Ah ouais je vois ...
Ben tu refais une autre liste chaînée à côté, avec le même nombre d'éléments, tu définis "Suiv" pour chaque objet comme d'habitude, puis ensuite tu parcoures les 2 listes, puis tu fais un CopyMemory (ou un "Move") sur "Elem", depuis la liste source jusqu'à la liste destination.
Montre ton code pour voir ?

Cordialement, Bacterius !

Bacterius · Answer

f0xi, tu veux donc dire que Elem et Suiv ne se suivent pas dans la mémoire ? Ah ben oui ça change tout ...

Cordialement, Bacterius !

Samou85 · Answer

D'abord merci fOxi et Bacterius de vos réponses!

je suis assez d'accord avec ton code fOxi mais j'ai quand meme des questions:

1)Je n'ai pas compris ce que sont sensés représenter les deux constantes: const SrcFirstElem, DestFirstElem : PListeElem ????

2)pourquoi la fonction rend un entier comme résultat(c'est le nombre d'éléments)???

MERCI de me répondre!

Bacterius · Answer

Je vais tenter de répondre 

1) SrcFirstElem représente le premier élément de la liste chaînée à copier, et DestFirstElem le premier élément de la liste chaînée de destination. (Je pense)

2) Elle rend le nombre d'éléments de la liste chaînée, effectivement. (Je pense)

Cordialement, Bacterius !

f0xi · Answer

c'est tout a fait ça.

Samou85 · Answer

OK Merci, mais je ne vois pas pourquoi le premier élément de la liste à créer serait en entrée dans la fonction!!!

Bacterius · Answer

Ben tout simplement pour savoir où on doit copier la liste chaînée source ?
Précision : la fonction que f0xi propose ne crée pas une 2eme liste de destination, tu dois la créer toi-même.

Cordialement, Bacterius !

Samou85 · Answer

Merci Bacterius pour la précision; et comment on crée la liste de destination,??? (avec un New(Dst))????

Bacterius · Answer

Ben de la même façon que tu as créé la liste à copier ?

Cordialement, Bacterius !

f0xi · Answer

oui avec :

var
  Src : PListeElem;
  Dst : PListeElem;


...

var
  K : integer;
begin
  New(Dst);
  K := CopieListeElem(Src, Dst);
  ...
end;		


sinon tu peux utiliser une classe TStringList en alternative a la liste chainée.

Liste chainée!

14 réponses

Votre réponse

Discussions similaires