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 :
--> BDD_MailOnline contient tous les Tobject
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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);
--> 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 :
- J'utilise la fonction Pack (Tlist) pour supprimer les nil
- Je maîtrise l'exception pour qu'elle se taise
- Je crée une fonction spéciale qui permet de supprimer un TObject dans deux TObjectList ...
Merci d'avance
Partager