Bonjour à tous,
J'ai un phénomène étrange avec le create d'un TObjectList, voici le code :
Cette liste d'objets renseigne un TVirtualStringTree pour l'affichage de cette liste
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 TAffaireListe = class(TObjectList) private fFiltre : TFiltreAffaireListe; public property Filtre : TFiltreAffaireListe read fFiltre write fFiltre; Constructor Create; overload; Destructor Destroy; override; ... end; constructor TAffaireListe.Create; begin fFiltre := TFiltreAffaireListe.Create; end; destructor TAffaireListe.Destroy; begin if Assigned(fFiltre) then FreeAndNil(fFiltre); inherited; end;
Je m'aperçois que l'inherited dans le create a été oublié alors je le rajoute
Mais si je fais cela, cela provoque une violation d'accès lors de l'accès à un élément du TVirtualStringTree ( un élément de ce TObjectList ) et si je ne mets pas l'inherited, tout fonctionne correctement, bizarre non ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 constructor TAffaireListe.Create; begin inherited Create; fFiltre := TFiltreAffaireListe.Create; end;
En tout cas, je n'arrive pas à voir ou est le problème...
Partager