Discussion :

[altaruk]

Bonjour,

Mon problème est le suivant : j'utilise une fiche (Main) qui crée un objet dont la classe est écrite sur une feuille (FormatProjet).

J'ai surchargé le constructeur de cette classe :

Code :

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

     constructor Create(aNomProjet: string; aArbre: TTreeNodes); overload;

et j'ai également un attribut privé :

Code :

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

     Arborescence: TTreeNodes;

Dans ma fiche principale (qui contient un treeview), je crée une instance de l'objet :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFMain.FormCreate(Sender: TObject);
Var 
      arbre: TTreeNodes;
 
Begin
      arbre := treeview.items;
      FichierProjet := TFormatProjet.Create('TestGestionProjet', arbre);
 
...
End;

Dans le constructeur de ma classe, j'ai écrit ceci :

Code :

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

1
2
3
4
5
6
7
constructor TFormatProjet.Create(aNomProjet: string; aArbre: TTreeNodes);
begin
     inherited Create;
 
     Arborescence.Assign(aArbre);
...
end;

Le problème, c'est que le programme me jète et m'affiche un message d'erreur quand j'exécute la ligne "Arborescence.Assigne(aArbre) ...


Help !

Merci des réponses

[ShaiLeTroll]

Tu veux faire une copie du TTreeNodes ou simplement que ton objet TFormatProjet partage le TreeView du Main ?

tu as surement oublié de faire l'instanciation de Arborescence mais qui pose problème d'avoir un TTreeView comme Paramètre ...

Code :

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

1
2
3
4
5
6
7
8
constructor TFormatProjet.Create(aNomProjet: string; aArbre: TTreeNodes);
begin
     inherited Create;
 
     Arborescence := TTreeNodes.Create(???);
     Arborescence.Assign(aArbre);
...
end;

je conseille donc simplement ce code, qui fera que Main et FormatProjet partage le même objet, ...

Code :

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

1
2
3
4
5
6
7
8
constructor TFormatProjet.Create(aNomProjet: string; aArbre: TTreeNodes);
begin
     inherited Create;
 
     Arborescence := aArbre;
 
...
end;

[altaruk]

J'utilise la méthode assign car je veux faire une copie du treenodes passé en paramètres, je ne veux pas que l'objet soit partagé ...

Le problème est que le treenodes a absolument besoin d'un objet visuel dans son constructeur.

[ShaiLeTroll]

le plus simple serait de créer ta propre classe ou tu ne stockes que les données utiles ... il n'est pas très long de créer un arbre ... faut juste bien maitrisé la recursivité des structures et des algos ...