Discussion :

[sgmsg]

Bonjour à tous

Simple question de base

Un objet peut être associer à un item d'un tstringlist :

Code :

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

1
2
x=UneListe.add('Item1');
UneListe.objects[x]:=UnObjet;

Mais c'est plutôt lourd de gestion quand vient le moment de libérer les ressources

Si j'associe

Code :

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

UneListe.objects[x]:=UnObjet(Uneliste{Aowner});

Lors de l'appel

Code :

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

UneListe.free

Est-ce que chaque objet associé a un item va être libéré automatiquement?

Si oui, comment déclare t'on UnObjet?

Merci d'avance

[Paul TOTH]

depuis quelques version (je ne sais pas exactement quand) TStringList possède une propriété OwnsObjects qui indique s'il doit les détruire ou non.

pour D6, le plus simple serait de créer un dérivé de TstringList ou, si c'est pour utiliser une liste déjà existante, de créer une fonction FreeObjects(SL: TStringList) qui n'est pas bien difficile à écrire.