Destruction d'un arbre

**pandora19** · 09/12/2011, 15h08

Bonjour,
Je cherche à créer une procédure qui détruit un arbre binaire, voici ce que j'ai fait mais ça ne marche pas, j'ai une runtime error 204 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Detruit (var a1 : Arbre);
  var a2, a3 : Arbre;
  begin
    while not a1 <> nil do
    begin
      a2 := a1^.suivG;
      a3 := a1^.suivD;
      a1^.suivG := NIL;
      a1^.suivD := NIL;
      Dispose(a1);
      Detruit(a2);
      Detruit(a3);
    end;
  end;

a1^.suivD et a1^.suivG étant les sous arbres droits et gauches de a1.
Merci d'avance

**Alcatîz** · 10/12/2011, 11h51

Bonjour,

Ton algorithme me semble correct, sauf que tu ne devrais pas avoir besoin de faire

Code :

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

1
2
a1^.suivG := NIL;
a1^.suivD := NIL;

Normalement, l'erreur 104 te donne l'adresse de l'instruction qui l'a déclenchée ; l'EDI peut la retrouver dans ton code source. Sinon, essaie d'exécuter ton programme en mode pas à pas ?

**Eric2a** · 10/12/2011, 12h11

Salut,

Ce ne serait pas plutôt...

while a1 <> nil do

**pandora19** · 10/12/2011, 13h07

Bonjour,

J'ai enlevé

Code :

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

1
2
a1^.suivG := NIL;
a1^.suivD := NIL;

et toujours la même erreur :S

J'ai aussi essayé

Code :

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

while a1 <> nil do

et sa ne change rien non plus

L'adresse de l'erreur est : 0000:06ED mais je ne sais pas comment la retrouver dans l'EDI :S

**pandora19** · 10/12/2011, 17h59

j'ai trouvé, il fallait faire une condition si la taille de l'arbre est 1 !
Merci à tous quand meme !

**Paul TOTH** · 10/12/2011, 19h06

ce code n'est absolument pas logique !

il n'y a pas lui de faire une boucle et les variables temporaires n'ont aucune utilité. et tant qu'à passer un paramètre par adresse autant retourner une valeur nil.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure Detruit (var a1 : Arbre);
begin
  if a1 <> nil then
  begin
    Detruit(a1^.suivG);
    Detruit(a1^.suivD);
    Dispose(a1);
    a1 := nil;
  end;
end;