Discussion :

[Sylvain255]

Bonjour,
je souhaiterais avoir une unité de gestion d'arbres n-aires en Delphi. Les étiquettes de mes noeuds seraient des Record pouvant contenir des tableaux à deux dimensions. Je souhaiterais que cette classe gère et libère bien la mémoire. Je suis incapable étant novice en Delphi et en arbres de la développer moi-même. J'ai cherché sur Internet mais tous les codes que j'ai trouvés étaient criblés de défauts (pas de libération de la mémoire, pas d'objet, etc.). Pourriez-vous SVP m'aider ? Je pense que ce code pourrait servir à d'autres.
Merci
Bien cordialement

[Sylvain255]

je précise que mes tableaux à deux dimensions ont des tailles fixes

[ShaiLeTroll]

Si Record et Array, type managé donc pas de libération explicite, encore plus simple avec des tableaux à taille fixe
Si Objet et Array, lors de la libération de l'objet, les membres managés sont aussi libérés automatiquement mais il faut juste penser à libérer les objets si les Array contient des Objets
Si Objet et TObjectList, grace au OwnObjects et une redéfinition du destructreur, pas grand chose à s'occuper


Il y a tellement façon de faire qu'il est difficile de vous répondre sans un début de code de votre part.

[anapurna]

salut


tous ce passe lors de la destruction de la node ou noeud
lors de sa destruction il faut aussi supprimer les instances associées à ce noeud
rien de bien compliqué en somme
montre nous un bout de code ou tu bloque et nous pourrons te conseiller au mieux

[Sylvain255]

voici ma proposition de code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
unit Trees;
 
interface
 
uses
  System.Generics.Collections;
 
type
  Tetiquette=record
    tab:array [0..6] of array[0..5] of Integer;
    hauteurs :array[0..6] of Integer;
    valeur,coup:Integer;
    feuille:boolean;
  end;
  TArbre=^TNoeud;
  TNoeud=record
    etiquette:Tetiquette;
    fils: TList<TArbre>;
  end;
 
implementation
 
 
 
      function creeArbre(etiquette:Tetiquette):TArbre;
      var temp:TArbre;
      begin
         New(temp);
         temp.etiquette:=etiquette;
         temp.fils:=TList<TArbre>.Create;
         result:=temp;
      end;
 
      procedure ajouteFils(arbre:TArbre;fils:TArbre); //l'ordre des fils ne m'intéresse pas pour mon application
      begin
         arbre.fils.add(fils);
      end;
 
      procedure detruitArbre(arbre:TArbre);
      var i:Integer;
      begin
       if arbre.fils.count>0 then
       for I := 0 to arbre.fils.count-1 do
            detruitArbre(arbre.fils[i]);
        arbre.fils.destroy;
        dispose(arbre);
      end;
 
end.

[Sylvain255]

j'ai fait une deuxième version du programme mais j'avais une question, en fait cet arbre va me servir à programmer un jeu de Puissance 4, et je voudrais stocker le tableau de jeu dans chacun des noeuds, mais je dois faire des tableaux dynamiques non car si je déclare une variable locale tableau statique elle sera détruite à la sortie de la fonction non ? ce sera l'objet de la troisième version

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
unit Trees;
 
interface
 
uses
  System.Generics.Collections;
 
type
  ttab = array [0..6] of array[0..5] of Integer;
  thauteurs =   array[0..6] of Integer;
  PEtiquette=^TEtiquette;
  Tetiquette=record
    tab:ttab;
    hauteurs :thauteurs;
    valeur:real;
    coup:Integer;
    feuille:boolean;
  end;
 
  TArbre=^TNoeud;
  TNoeud=record
    etiquette:Petiquette;
    fils: TList<TArbre>;
  end;
 
  function creeEtiquette(tab:ttab;
      hauteurs :thauteurs;
      valeur:real;
      coup:Integer;
      feuille:boolean):Petiquette;
 
  function creeArbre(etiquette:Petiquette):TArbre;
 
  procedure ajouteFils(arbre:TArbre;fils:TArbre);
 
  procedure detruitArbre(arbre:TArbre);
 
implementation
 
 
      function creeEtiquette(tab:ttab;
      hauteurs :thauteurs;
      valeur:real;coup:Integer;
      feuille:boolean):Petiquette;
      var etiquette:PEtiquette;
      begin
        New(etiquette);
        etiquette.tab:=tab;
        etiquette.hauteurs:=hauteurs;
        etiquette.valeur:=valeur;
        etiquette.coup:=coup;
        etiquette.feuille:=feuille;
        result:=etiquette;
      end;
 
      function creeArbre(etiquette:Petiquette):TArbre;
      var temp:TArbre;
      begin
         New(temp);
         temp.etiquette:=etiquette;
         temp.fils:=TList<TArbre>.Create;
         result:=temp;
      end;
 
      procedure ajouteFils(arbre:TArbre;fils:TArbre); //l'ordre des fils ne m'intéresse pas pour mon application
      begin
         arbre.fils.add(fils);
      end;
 
      procedure detruitArbre(arbre:TArbre);
      var i:Integer;
      begin
        if arbre.fils.count>0 then
        for I := 0 to arbre.fils.count-1 do
            detruitArbre(arbre.fils[i]);
        dispose(arbre.etiquette);
        arbre.fils.destroy;
        dispose(arbre);
      end;
 
end.