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 :
constructor Create(aNomProjet: string; aArbre: TTreeNodes); overload;
et j'ai également un attribut privé :
Arborescence: TTreeNodes;
Dans ma fiche principale (qui contient un treeview), je crée une instance de l'objet :
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 :
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
Partager