Discussion :

[gandf]

Bonjour,

Je fabrique des composants suivant le principe suivant :
J'ai un TList qui stocke d'autre Tlist qui eux pointent vers les composants que je crée (un TList contient tous les composants d'un nouvel onglet d'un pagecontrol).

Voici un bout du code :
Dans le .h :

Code :

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

        TList *PageList;

Dans le cpp :

Code :

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

1
2
3
4
5
6
7
8
9
TList *ListeComp = new TList();
TTabSheet *pTabSheet = new TTabSheet(PageControl1);
pTabSheet->PageControl = PageControl1; //je ne sais pas si cette ligne est utile
ListeComp->Add(pTabSheet);
TScrollBox *TempScrollBox3 = new TScrollBox(pTabSheet);
ListeComp->Add(TempScrollBox3);
 
PageList->Add(ListeComp);
PageControl1->ActivePage = pTabSheet;

Jusque la pas de problème mais pour supprimer les composants dans le FormClose :

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
TList *TempList;
for (int A = 0; A < PageList->Count; A++)
    {
    TempList = (TList *)PageList->Items[A];
    for (int I = 0; I < TempList->Count; I++)
        {
        delete TempList->Items[I];
        }
    }
TempList = NULL;
for (int I = 0; I < PageList->Count; I++)
    {
    delete (TList *)PageList->Items[I];
    }
delete PageList;

Toutes ces lignes passent correctement mais le programme plante jusqte après. J'ai essayé de mettre un bouton qui supprime mes composants avec ce bout de code, mais les composants ne disparaissent pas et le programme plante :

Code :

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

1
2
3
4
5
6
7
8
9
10
TList *TempList;
for (int A = 0; A < PageList->Count; A++)
    {
    TempList = (TList *)PageList->Items[A];
    for (int I = 0; I < TempList->Count; I++)
        {
        delete TempList->Items[I];
        }
    }
TempList = NULL;

Je ne comprend plus. Comment faire pour garder les pointeur et détruire les composants pointé par ceux-ci sachant que je ne connait pas par avance le nombre de composants ni leur type, ni leur nom?

Merci

[DjmSoftware]

bonjour, dans ta TList tu essaye de stocker des objects de types différents
ce n'est pas posssible
par ailleur ton code de destruction n'est pas correct

Code :

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

1
2
3
 
ListeComp->Add(pTabSheet); 
ListeComp->Add(TempScrollBox3);

utilise plutôt la classe TObjectList,
elle est précue pour stocker des objects de la VCL de types différents
pour la libération de la liste il suffit simplement de détruire la liste ce qui va automatiquement libérer tous les ptr stockés ainsi que la mémoire associée

cordialement

[gandf]

J'ai trouvé!

Code :

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

1
2
3
4
5
6
7
TComponentList *ListeComp = new TComponentList();
TTabSheet *pTabSheet = new TTabSheet(PageControl1);
pTabSheet->PageControl = PageControl1;
ListeComp->Add(pTabSheet);
TScrollBox *TempScrollBox3 = new TScrollBox(pTabSheet);
ListeComp->Add(TempScrollBox3);
PageList->Add(ListeComp);

et :

Code :

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

1
2
3
4
5
6
7
while (0 < PageList->Count)
      {
      delete (TComponentList *)PageList->Items[0];
      PageList->Delete(0);
      PageList->Capacity = PageList->Count;
      }
delete PageList;

J'utilise un TComponentList qui détruit les composants vers lesquel il pointe lors de sa destruction. Par compte, si l'on fait pareil avec le TList, il détruit le pointeur (on a plus de trace pour retrouver le pointeur) mais il ne détruit pas les composants. Le TComponentList correspond parfaitement à ce qu'il me faut à savoir une liste servant à gérer des composants.

Merci pour ton coup de main Si tu ne m'avait pas parlé de TObjectList, je n'aurait jamais trouvé ce TComponentList.

[Greybird]

bonjour, dans ta TList tu essaye de stocker des objects de types différents
ce n'est pas posssible

C'est tout à fait possible, et n'entrave en rien le fonctionnement du programme. Bien entendu, si on a besoin de connaïtre le type de l'objet après coup, et qu'ils ne sont pas stockés dans la TList d'une manière qui permette de le faire, cela n'est vraiment pas conseillé. Dans les autres cas, il n'y a aucun problème.

[DjmSoftware]

bonjour,

Greybird a écrit:

C'est tout à fait possible, et n'entrave en rien le fonctionnement du programme. Bien entendu, si on a besoin de connaïtre le type de l'objet après coup, et qu'ils ne sont pas stockés dans la TList d'une manière qui permette de le faire, cela n'est vraiment pas conseillé. Dans les autres cas, il n'y a aucun problème.

La classe TList a été concue pour stocker des pointeurs de type <void>
il est naturellement possible de stocker d'autre types de ptr en les <castant>


le problème se situe lors de la destruction de la liste car il n'est plus possible de connaitre le type de ptr stockés raison pour laquelle j'ai posté que ce n'était pas possible

le résultat sera la création de memory leak

la VCL possède d'autre types de classes de List par exemple TComponentList,TObjectList permettant de stocker des ptr de types différents mais ayant comme classe de base respectivement TComponent et TObject

cordialement