Discussion :

[krokmitaine]

Bonjour,
Je dispose d'une liste d'objets (affichés dans une listview) définis par leur nom, leur type MIME (audio/*, application/*, image/*, text/* ou video/*) et la taille du fichier associé à l'objet. En plus j'ai dans ma fiche un panel qui va me permettre d'exécuter le contenu de l'objet sélectionné en fonction du type.

Par exemple pour un objet décrivant un fichier .TXT, je crée dynamiquement un TMemo dans mon panel et dans lequel je charge mon fichier .TXT. De même pour un fichier .JPG ou un .GIF, je crée un TImage, etc.

Jusque là pas de problème, mais là où ça se corse, c'est comment faire pour supprimer le composant crée dynamiquement dans mon panel ? En effet je crains qu'il n'y aie des fuites de mémoires ou des petites choses indésirables dans ce genre à chaque fois que je vais cliquer sur un item de ma listview.

Ci-dessous mon code lorsque je clique sur un objet de type "text/*"

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
16
// Attachment est l'objet qui contient un nom, un type, 
// le fichier associé et la taille du fichier associé
procedure TfmMain.SetContentText(a: Attachment); 
var
  filename: String;
begin
  filename := IntToStr(a.id) + '_' + a.filename;
 
  with TMemo.Create(panel) do begin
    Parent := panel;
    ScrollBars := ssVertical;
    Align := alClient;
    BorderStyle := bsNone;
    Lines.LoadFromFile(filename);
  end;
end;

[TicTacToe]

il faut garder la référence de ton objet créé dynamiquement.
Si tu ne créés qu'un et un seul objet dynamiquement, sur le clic de ta listbox, tu pourrais garder cette référence (peu importe la classe), dans l'objet associé à l'item de ta liste, ainsi, tu peux libérer.

Si tu n'a qu'un seul objet simultanément de créé, il faut juste créer une var. de type TControl (composant visuel), et l'affecter a ta derniere création.

Tu peux ainsi faire un Control.Free indépendemment de la classe instanciée.
Voir mieux, FreeAndNil( Control ), pour savoir si un objet a été instancié ou non.

[qi130]

Bah, utilise la méthode Free disponible pour tous les objets.

[krokmitaine]

J'ai résolu mon problème. Bon vous allez me dire c'est un peu brutal comme méthode mais au moins si jamais je dois créer plus d'un composant dans mon panel je n'aurais pas a revenir dessus.

Code :

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

1
2
  for i:=panel.ControlCount-1 downto 0 do
    panel.Controls[i].Free;

En gros je boucle sur les composants visuels de mon panel et je les Free.
Merci pour vos réponses.
++