Discussion :

[mister_dsg]

voila je me casse toujours les dents sur la suppression et si quelqu'un pouvait me dire ou est-ce que ça merde
merci d'avance
voici le code que j'ai ecris

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure supprimer_un(var TDL:ptliste;element:integer);
var ptint:ptliste;
    ptint1:ptliste;
    i,j:integer;
begin
  ptint:=TDL;
  ptint1:=TDL;
  i:=1;
  j:=1;
  if ptint=nil
     then TDL:=ptint
     else while (ptint^.elem<>element) and (ptint<>nil) do
                begin
                  ptint:=ptint^.suiv;
                  i:=i+1;
                end;
  if ptint^.elem=element
     then
       begin
         ptint1:=ptint^.suiv;
         ptint:=TDL;
         while (ptint^.elem<>element) and (j<i) do
               begin
                 ptint:=ptint^.suiv;
                 j:=j+1;
               end;
         ptint^.suiv:=ptint1;
       end
     else writeln('cet ‚l‚ment n''est pas dans la liste');
end;

voila
merci d'avance encore une fois
@+
mister dsg

[mister_dsg]

j'ai aussi entendu parlé pour la suppression dans une liste chainé de la fonction : dispose(pt)
seulement je ne sais pas comment elle marche ni comment s'en servir
voila bien
@+
mister dsg

[M.Dlb]

Ohlala...
Dispose sert à désallouer la mémoire associé à un objet... Si tu ne fais pas de dispose, tu ne libères pas la mémoire... Et elle risque de manquer à un moment donné...
Il faut absolument le faire donc !

a+

[mister_dsg]

ouais je sais bien seulement je ne sais pas comment me servir de dispose et j'aimerai aussi pouvoir faire ma procedure sans passer par dispose
voila
@+
mister dsg

[mister_dsg]

et eventuellement par rapport a ma procedure est-ce que je peux mettre dispose sans trop modifier la procedure et a quel endroit je dois le mettre ???
merci d'avance
@+
mister dsg

[WOLO Laurent]

Juste avant le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
End;

[mister_dsg]

ben j'ai deja essayé de mettre juste dispose avant le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

end;

mais seulement quand je veux afficher ma liste et ben ça met tout plein de valeur bizarre
et donc j'aimerai savoir si a partir du code que j'ai mis si je dois enlever ou modifier quelque chose pour que le dispose marche correctement
merci d'avance
@+
mister_dsg

[Alcatîz]

Bonjour !

Il est dommage de faire deux boucles pour en fait chercher une fois l'élément à supprimer puis encore une fois l'élément qui le précède dans la liste. Si tu ne fais qu'une seule boucle en gardant trace systématiquement de l'élément qui précède celui à supprimer, tu as tout-de-suite tout ce qu'il te faut pour la suppression. Ca pourrait donner quelque chose comme :

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
19
20
21
22
23
Procedure Supprimer_Un (var TDL : ptListe; Element : Integer);
Var ptPrec, ptInt : ptListe;
Begin
  ptPrec:=Nil;
  ptInt:=TDL;
  while (ptInt^.Elem <> Element) and (ptInt <> Nil) do
    begin
      ptPrec:=ptInt;
      ptInt:=ptInt^.Suiv;
    end;
  if ptInt <> Nil
     then
       begin
         if ptPrec = Nil
            then
              TDL:=ptInt^.Suiv
            else
              ptPrec^.Suiv:=ptInt^.Suiv;
         Dispose(ptInt);
       end
     else
       WriteLn('Cet élément n''est pas dans la liste');
End;

[mister_dsg]

en effet je ne sais pas pourquoi je n'y ai pas penser, et en plus ça marche donc merci bien pour ce petit coup de main
a charge de revanche je l'espère
merci bien
@+
mister_dsg

[Alcatîz]

Il n'y a pas de quoi !
N'oublie pas d'activer la balise [Résolu].
A bientôt j'espère !