Discussion :

[Jipété]

Bonjour,

je deviens fou : je crée des objets dynamiquement (des TPanels contenus dans un TPanel sur la fiche, et contenant 1 TImage et 1 TLabel chacun), donc logiquement je devrais faire le ménage avant clôture, sauf que
- que je passe par FormClose, un autre appel par FormKeyDown ou un bouton, le ménage n'est pas fait, enfin, c'est ce que je devine en voyant le symbole à gauche, qui devient vert-valide juste après F9 ;


- en pas-à-pas je n'entre jamais dans les lignes du ménage, malgré les ShowMessage qui s'affichent :


- plus curieux, si je n'exécute pas ce nettoyage il n'y a pas de fuite mémoire. Il n'y aurait donc pas besoin de faire le ménage ?

- et pourquoi je ne me prends pas d'erreurs dans cette procédure, en cliquant plusieurs fois sur le bouton ? :

Après 25 ans de Delphi et Lazarus, j'avoue que je suis un peu perdu, là.

Merci et bon aprème,

[acaumes]

Bonjour,

Je n'ai pas fait l'essai (il manque un peu de code)

- plus curieux, si je n'exécute pas ce nettoyage il n'y a pas de fuite mémoire. Il n'y aurait donc pas besoin de faire le ménage ?

Parce que le owner ou le parent (je ne sais plus) fait automatiquement le ménage à la fermeture.
Et du coup, il se peut (à vérifier) que componentCount soit du coup à zéro.

Cordialement

[Jipété]

Parce que le owner ou le parent (je ne sais plus) fait automatiquement le ménage à la fermeture.
Et du coup, il se peut (à vérifier) que ComponentCount soit du coup à zéro.

Bien vu !

+ 1 !
Vérifié ainsi :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  showmessage('test');
  showmessage('componentCount : '+inttostr(ComponentCount));
  for i := 0 to ComponentCount-1 do
  ...

Le résultat donne 4 : 2 TButton's, 1 TEdit et 1 TPanel qui sert de container aux TPanels et TLabels créés dynamiquement et qui ne sont donc pas pris en compte, lol !

Il m'aura suffi de rajouter pnlContainer. à ComponentCount et d'inverser l'ordre de destruction pour que cette partie baigne dans l'huile :

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
17
18
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  showmessage('pnlContainer.componentCount : '+inttostr(pnlContainer.ComponentCount));
  // d'abord détruire les TLabels -- après tests, ce n'est pas nécessaire : contenus dans les TPanels, ils sont détruits à la destruction des TPanels
  {for i := pnlContainer.ComponentCount-1 downto 0 do
    if (pnlContainer.Components[i] is TLabel) then begin
      TLabel(pnlContainer.Components[i] as TLabel).Free;
    end;                           }
  // puis les TPanels
  for i := pnlContainer.ComponentCount-1 downto 0 do
    if (pnlContainer.Components[i] is TPanel) then
      if Copy((pnlContainer.Components[i] as TPanel).Name, 1, 7) = 'pnl4img' then begin
        TPanel(pnlContainer.Components[i] as TPanel).Free;
      end;
  Form1.Update;
end;

Il me reste la non-entrée en mode pas-à-pas sur les bras. Pour en avoir le cœur net, je rajoute un Button2 et juste ça :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 2 do begin  // F5 sur cette ligne
    ShowMessage(inttostr(i));
    Edit1.Text:=inttostr(i);
  end;
end;

et au clic sur le bouton je n'entre pas en débogage ! Pourtant, toutes les options du projet sont correctes de ce côté-là. Je dois en louper une, mais laquelle ?

[Jipété]

Bonjour,

je clique malgré l'entrée en débogage qui ne fonctionne toujours pas, mais comme ce n'est pas le titre de la discussion, au besoin j'en ouvrirai une dédiée à ce problème.
EDIT : je l'avais complètement oubliée, mais c'est encore cette vieille histoire d'un paramètre qu'il faut basculer à True dans Menu Outils / Options... / Débogueur / Général / DisableLoadSymbolsForLibraries.
Me souviens jamais si ça change tout seul ou si c'est autre chose.
/EDIT

Mais pour l'heure j'ai un autre souci pas piqué des vers…

[BeanzMaster]

Salut pourquoi ne pas utiliser l'évènement OnCloseQuery de la form pour faire le ménage juste avant la fermeture de ta fiche ?

[Jipété]

Salut,

Salut pourquoi ne pas utiliser l'évènement OnCloseQuery de la form pour faire le ménage juste avant la fermeture de ta fiche ?

Parce que ça n'aurait pas changé le nettoyage des objets qui ont besoin d'être nettoyés.

[BeanzMaster]

Hello

Salut,



Parce que ça n'aurait pas changé le nettoyage des objets qui ont besoin d'être nettoyés.

Je ne comprend pas pourquoi ? Car le onCloseQuery intervient avant la fermeture de te fenêtre ou application. Tu peux en dire plus ?
Sinon pour l'application tu as l'évènement onDestroy aussi. Qui lui intervient après la fermeture de ta fenêtre.

A+
Jérôme

[Jipété]

Yep !

Je ne comprend pas pourquoi ? Car le onCloseQuery intervient avant la fermeture de te fenêtre ou application. Tu peux en dire plus ?
Sinon pour l'application tu as l'évènement onDestroy aussi. Qui lui intervient après la fermeture de ta fenêtre.

Bah, mon application est suffisamment simple pour que je n'aie pas à me prendre la tête avec plein d'options de tous les côtés, qui vont m'embrouiller la tête.
Comme on dit sous Linux, K.I.S.S. !

En d'autres termes, je crée des objets dans FormCreate, je les libère dans FormClose et basta ! Sauf pour les enfants, petits-enfants et plus bas encore de certains objets qui, eux, seront libérés par la libération de leur ancêtre.

Et à ce jour ça fonctionne bien.