Discussion :

[Duffer]

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 :

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

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);

[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 ?

[Duffer]

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 :

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
 
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;

[retwas]

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.

[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

[Papy214]

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

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

[Duffer]

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

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

[ShaiLeTroll]

Voici ce projet de l'an 2000 : ClearRegistre.rar

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

[Duffer]

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