Discussion :

[Lung]

Dans une TObjectList, je stocke une liste de fenêtres.
Pas de problème dans la manipulation.

Par contre, si je supprime un élément de ma liste avec MaListe.Remove(), j'ai une violation d'accès, après coup. En pas à pas, le remove fonctionne bien, la fenêtre correspondante est bien détruite, mais plus tard, une violation d'accès survient.
Si je ne supprime pas d'élément, je n'ai pas de violation d'accès.

Sachant que je ne passe que par ma liste pour accéder à mes fenêtres, je ne risque pas d'essayer de manipuler une fenêtre détruite auparavant.
Donc, je ne comprend pas cette violation d'accès.
Quelqu'un aurrait-il une explication, une piste ... ?

[tourlourou]

l'une des fenêtres qui reste dans ta liste n'a-t'elle pas pour parent une de celles supprimées ???

[Pierre Castelain]

Tu devrais mettre la valeur de la propriétés OwnsObjects de la liste à False. A priori, tes fenêtres sont certainement libérées par leur owner (application).

[Clorish]

Vi .... le Owner peut regler le probleme.
Sinon verifie si tu utilise pas ta liste par index ... cad que tu recupere pas l'index de position dans la liste pour un acces rapide. sinon ca rique de planter quand l'index n'est pas mis a jour en meme temps que le remove.

Solution bete .. mais parfois les erreur faut pas chercher plus loin que ca ^^

[Lung]

l'une des fenêtres qui reste dans ta liste n'a-t'elle pas pour parent une de celles supprimées ???

Non. Elles ont toutes le même rôle et ne s'utilise pas mutuellement.

[Lung]

Tu devrais mettre la valeur de la propriétés OwnsObjects de la liste à False. A priori, tes fenêtres sont certainement libérées par leur owner (application).

Mais, si je fais un Remove de mon élément, il faut que je détruise la fenêtre manuellement avec un Free, non ?

Par contre, je n'ai pas précisé que quand je fais un Clear de ma liste, je n'ai pas d'erreurs.

[Lung]

Sinon verifie si tu utilise pas ta liste par index ... cad que tu recupere pas l'index de position dans la liste pour un acces rapide.

Comment faire autrement qu'utiliser un index pour naviguer dans ma liste ?

sinon ca rique de planter quand l'index n'est pas mis a jour en meme temps que le remove.

Comment faire pour qu'il soit à jour ?

[Clorish]

Ben quand je parle d'index c'ets du genre :

Code :

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

1
2
3
 
Index := List.add(Obj);
List[Index].Top := ...;

Suffit de mettre Index a -1 pour dire que ca ne sert plus

MAintenant si tu parcours la liste de tes objets pour retrouver celui que tu souhaite modifier c autre chose .. .car tu tombera toujours dessus.

Pour l'histoire du owner en fait 2 Solution. Soit il est a false et l'objet n'est pas libéré (la case du tableau n'est qu'une copie du pointeur de base)

Si le owner est a true, il change le owner des objets en se les appropriant, donc il libere les objets lorsqu'ils sont detruits. LE free deviens inutil.

Fait attention aussi a ne pas faire reference a la fariable Form2 : TForm2 par exemple car si elle est detruie ca pointera dans le vide ...

[tourlourou]

est-ce que tu testes la valeur de retour (-1 => pas trouvé) ?

si ton objet est plusieurs fois dans la liste, seule la première occurrence est ôtée de la liste => l'objet pas libéré

[Lung]

MAintenant si tu parcours la liste de tes objets pour retrouver celui que tu souhaite modifier c autre chose .. .car tu tombera toujours dessus.

Oui, c'est ce que je fais à chaque fois. Je parcours ma liste, pour rechercher la fenêtre qui m'intéresse.

Si le owner est a true, il change le owner des objets en se les appropriant, donc il libere les objets lorsqu'ils sont detruits. LE free deviens inutil.

Donc, la situation en mémoire est propre, et la liste à jour, non ?
C'est pour ca que je ne comprend pas d'où vient cette erreur ...

Fait attention aussi a ne pas faire reference a la fariable Form2 : TForm2 par exemple car si elle est detruie ca pointera dans le vide ...

Tu parles de la variable qui m'a servie à créer l'objet avant de le stocker dans ma liste ?
Non, je ne m'en sert plus après.

[Lung]

si ton objet est plusieurs fois dans la liste, seule la première occurrence est ôtée de la liste => l'objet pas libéré

C'est le même type de fenêtre, mais des objets différents :
Si j'ai besoin de 10 fenêtres, je vais bien créer 10 objets, et stocker ces 10 objets dans ma liste.

[Clorish]

Donc, la situation en mémoire est propre, et la liste à jour, non ?
C'est pour ca que je ne comprend pas d'où vient cette erreur ...

Effectivement .. si tu cherche a liberer un objet apres un remove :p

Pense a faire :

Code :

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

1
2
 
If Assigned(Object) Then FreeAndNil(Object);

Et un :

Code :

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

1
2
 
If Not Assigned(Object) Then Object := TObject.Create;

Pour eviter tout problemes lors de la destruction/creation d'objet.
Moi perso si l'objet est assigne lors de la construction par defaut, je le leibere ... et ensuite je tappe mon code de creation

Code :

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

1
2
3
 
If Assigned(Object) Then FreeAndNil(Object);
Object := TObject.Create;

Puisque de toute facon il a aucune raison d'exister avant ^^

[Lung]

Code :

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

1
2
3
 
If Assigned(Object) Then FreeAndNil(Object);
Object := TObject.Create;

On ne peut pas réutiliser une variable pour créer un nouvel objet ?
Je pensais que c'était comme un pointeur.

[tourlourou]

si, je m'en sers pour créer une collection d'objets que je passe un par un au fur et à mesure de leur création à un TObjectList qui les libère.
donc pas de libération explicite de cette variable puisque sa dernière référence est passée à la liste

[Clorish]

Bien sur qu'on peut reutiliser une variable pour creer un nouvel objet .. mais pas n'importe comment ...

Si tu fait :

Code :

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

1
2
3
 
o := TMonObjet.Create;
o := TMonObjet.Create;

Ca marche tres bien .. sauf que o ne pointe plus sur mon premier objet mais sur mon 2e .... exactement comme les pointeur.
D'ailleur exactement on se retrouve avec un objet cree en memoire que l'on ne pourra jamais manipuler ni liberer car on a perdu son adresse.

Ce qui est juste c'est ceci :

Code :

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

1
2
3
4
5
 
Tmp := TMonObjet.Create;
o := Tmp;
Tmp := TMonObjet.Create;
o2 := Tmp;

Avant d'affecter tmp avec une adresse d'un autre objet, on s'assure de garder une copie de la precedente adresse (comme les pointeurs ;op)

Cett ecopie peut etre uen variable, ou inseree dans une liste, ou encore retrouvee grace a l'insertion automatique das les listes Controls/Components si le Parent/Owner d'un TControl/TComponent a ete specifié. mais ceci sont des cas particulier.

[Lung]

D'accord.
C'est bien ce que je pensais (tu me rassures ).
Donc, en stockant mes objets dans ma TObjectList, si je supprime un élément avec un Remove, l'object correspondant est supprimé.

C'est la première fois que j'ai des problème avec la TObjectList. Je l'utilise assez souvent.