Array et TTreenode

Version imprimable

20/09/2017, 10h04
Duffer

Array et TTreenode
Bonjour

J'aimerais savoir s'il est possible d'utiliser un array of TTreenode ? Car je créer un treeview de manière automatique suivant les valeurs que je trouve.

Pour après pouvoir l'utiliser dans un code du genre :
Code:

1 2 3 4 5 6 7 Var Treenode : Array of TTreenode Treenode[i]:=Treeview.Items.add(nil,menu); //Puis treeview.Items.addchild(Treenode[i], sous_menu);
20/09/2017, 11h09
ShaiLeTroll

C'est une mauvaise idée, conserver un tableau mono-dimension pour accompagner ton arbre n'est que source de complexité !

Quel est le vrai problème ?

En faite dans le treeview, je veux recréer un aperçu d'une clé du registre dans laquelle il y a peu y avoir beaucoup de sous clé et de sous clé à cette dernière, donc beaucoup de sous enfant.

Donc pour la première sous clé, je n'avais pas de soucis mais pour la seconde j'ai plus de mal

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
for i2:=0 to Categorieslist.Count-1 do
  begin
    Reg1.OpenKeyReadOnly('\Emplacement registre\'+CategoriesList.Strings[i2]);
    Nom_menu:= Reg1.ReadString('Nom');
    Sous_menu:= Reg1.ReadString('Sous menu');
    Reg1.CloseKey;
 
    MyTreeNode:=TreeView1.Items.Add(nil, Nom_menu); //Création du noeud dans Treeview
    SubCatList.LineBreak := ';';
    SubCatList.Text := Sous_menu;
 
    for i3:=0 to SubCatList.Count-1 do
    begin
      Reg2.OpenKeyReadOnly('\Emplacement registre\'+SubCatList.Strings[i3]);
      Nom_Sous_menu:=Reg2.ReadString('Nom');
      Sous_menu:= Reg2.ReadString('Sous menu');
      Treeview1.Items.AddChild(MyTreeNode, Nom_Sous_menu);
      Reg2.CloseKey;
    end;
  end;

20/09/2017, 11h52
Invité

Utilise plutôt une fonction récursive pour remplir ton arbre depuis la clé principale, tu peux utiliser les exemples pour lister les sous dossier d'un dossier.
21/09/2017, 11h19
ShaiLeTroll

Même suggestion que retwas
Quand j'étais apprenti en 1999, j'ai fait un tableau dynamique qui gérait la profondeur de l'arbre (j'ai divisé par 3 quand j'ai utilisé un tableau de 32 positions max)
J'ai appris la récursivité à l'école, j'ai juste divisé le temps de parcours de la base de registre par 10

Si tu veux, j'ai le code entier d'un Editeur de Base de Registre qui date de Win98 et NT4 en Delphi 5
C'est bourré d'erreur, c'est vieux et un vrai bordel mais instructif
21/09/2017, 12h22
Papy214

Citation:

C'est bourré d'erreur, c'est vieux et un vrai bordel ...

Arrête de t'auto-flageller ... j'y crois même pas ;)
21/09/2017, 12h59
Duffer

Merci pour toutes les infos, je vais regarder ce que je peux faire pour améliorer ma méthode ;)

Citation:

Envoyé par ShaiLeTroll

Si tu veux, j'ai le code entier d'un Editeur de Base de Registre qui date de Win98 et NT4 en Delphi 5
C'est bourré d'erreur, c'est vieux et un vrai bordel mais instructif

Il y a pas de soucis je suis preneur, cela me permettra d'apprendre un peu plus :)
21/09/2017, 17h22
ShaiLeTroll

1 pièce(s) jointe(s)

Voici ce projet de l'an 2000 : Pièce jointe 313442

Citation:

Envoyé par Papy214

Arrête de t'auto-flageller ... j'y crois même pas ;)

Pourtant, je crois que je n'avais pas compris l'on pouvait modifier le HaveChild par exemple alors je faisais un nœud fantome
Des parties, je n'ai pas réussi avec le TRegistry alors je suis passé par les API
Si si crois-moi, on a tous débuté un jour, c'est sur qu'au bout de 6 mois, je trouvais les cours de C un peu léger par rapport à ce que je faisais au bureau, l'école ne m'a appris qu'une seule et unique notion : La Récursivité ... ah et MERISE, ouais trop utile vu l'absence de modélisation dans la plupart des boites où tout est urgent à coder pour hier

EDIT : Waooh ça compile sans modif sur XE2 mais je ne sais pas si c'est partout au point avec le Char en ASM et les APIs :mouarf:
22/09/2017, 12h52
Duffer

Merci beaucoup ShaiLeTroll pour tes sources, maintenant il reste juste à étudier un peu :)