Suppression d'un TObject dans deux TObjectList

Bonjour,

j'ai un petit problème de libération d'objet, et j'aurai aimé être aiguillié sur un détail, j'ai bien des idées mais quelle est la meilleure solution ?

En gros voici mon code :

Code:

---

1 2 3 4 5

un_index := f_principale.BDD_MailOnline.serial_cherche(serial); f_principale.BDD_MailOnline[un_index].Clear; un_index := latache.mega_online.serial_cherche(serial); latache.mega_online[un_index].Clear; f_principale.clear_outlist_account(serial);

---

--> BDD_MailOnline contient tous les Tobject
--> Mega_online contient quant à lui seulement une partie des TObject...

En gros mon premier Clear supprime tous les TObject... Donc le deuxieme pète un plomb car il ne sait pas qu'ils ont été supprimés :(

Mes solutions, je vous demande un peu votre avis :

1. J'utilise la fonction Pack (Tlist) pour supprimer les nil
2. Je maîtrise l'exception pour qu'elle se taise
3. Je crée une fonction spéciale qui permet de supprimer un TObject dans deux TObjectList ...

Merci d'avance

Bonjour,
TObjectList possède une propriété OwnsObjects qui définie si les objets appartiennent ou pas à la liste, et si par conséquence la liste doit détruire ou non les objets qu'elle possède.
Tu peux spécifier directement la valeur de OwnsObjects dans le constructeur.

BDD_MailOnline pourrait posséder les objets (et donc s'occuper de leur libération), tandis que Mega_online possèderait des références vers certains de ces objets sans gérer leur destruction.

Mais attention, après libération de ta liste BDD_MailOnline, il ne faut plus tenter d'accéder aux objets par ta seconde liste Mega_online, devenus alors invalides.
Il vaut mieux dans ce cas toujours vider Mega_online avant BDD_MailOnline ;).

Bjr

Et si on recupere les 2 indexes separéments avant suppression,
pour ensuite ne supprimer que BDD_MailOnline[index1]
et directement mettre Nil dans la 2eme liste ?

Code:

---

1 2 3 4 5 6

index_1 := f_principale.BDD_MailOnline.serial_cherche(serial); index_2 := latache.mega_online.serial_cherche(serial); f_principale.BDD_MailOnline[index_1].Clear; latache.mega_online[index_2] = nil; f_principale.clear_outlist_account(serial);

---

Ca devrait marcher dans tous les cas, non ?

@Teo :
En fait je ne pense pas, car il faut quand même libérer l'objet, il s'agit d'une tobjectlist d'une tobjectlist d'un tobject, si je mets nil sur la tobjectlist (qui n'est pas detruite) je risque d'avoir des problèmes de mémoire...

@Gb 68 :
Vachement intéressant, mais dans tous les cas je vais devoir toujours gérer "manuellement" la suppression...

En vous remerciant, si j'ai un problème je reviens, et si tout va bien je mets résolu...