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