Discussion :

[Ardely]

Bonjours,
Je me suis crée un TFrame dont sur cette Frame j'ai des boutons, cases à cochés
des variables ansi que des Array...Ma question est si je pousse par exemple
un bouton du nom Close, la Frame ainsi que tous les variables et objets mise
sur cette frame sois libérer, des allouer ou détruit pour libérer de la mémoire.
Voici comment je crée ma Frame.

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
 
type
  TFrameBt2edit = class(TFrame)
..
..
 var
  ToFrame2: TFrameBt2edit;
..
 
 implementation
 
 
Procedure  Init_Panel2;
begin 
 ToFrame2 := TFrameBt2edit.Create(ToFrame2);
 ..

Est-ce suffisant de faire ceci...(qui fonctionne à moitié)
En faisant un test après d'avoir poussé le bouton close je constate que le contenu du array existe encore! (ou dois-je les dés allouer séparément)

Code :

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

1
2
3
4
5
6
 
procedure TFrameBt2edit.CloseClick(Sender: TObject);
begin
 RemoveControl(ToFrame2);
 ToFrame2.Free ;
end;

Merci pour vôtre aide, salutations

[philnext]

Pas très clair...
Si tu crées 'en code' des composants tu dois les détruire 'en code'.
Si tu crées un composant qui en contient d'autres tu dois détruire ces autres avant de détruire ton composant 'container'.

[ShaiLeTroll]

tu dois ajouter un destructor

Code :

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

1
2
3
4
5
type
  TFrameBt2edit = class(TFrame)
public
  destructor destroy(); override;
...

Normalement, un array est libéré si il est alloué dans l'objet (il effectue un finalize sur ses membres ... public ou privé ou publié chacun se comporte différement, les uns sont à la charge du dev, les autres au gestionnaire de flux ...,

bon ensuite comme le pointeur de ton tableau n'est pas nulle, la mémoire, elle n'est pas effacée tout simplement ... donc delphi peu lire, mais ton programme lui ne peut pas ... c'est spécial le deboggage, il s'accorde des droits sur l'exe lancé ... (voir API IsDebuggerPresent ...)

ensuite ceci me choque

Code :

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

1
2
3
4
Procedure  Init_Panel2;
begin 
 ToFrame2 := TFrameBt2edit.Create(ToFrame2);
 ..

Comment ToFrame2 qui n'est pas instancié peut-être son propre Owner ???

Code :

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

1
2
3
4
Procedure  Init_Panel2;
begin 
 ToFrame2 := TFrameBt2edit.Create(nil); // ou application à la limite
 ..

idem

Code :

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

1
2
3
4
5
procedure TFrameBt2edit.CloseClick(Sender: TObject);
begin
 RemoveControl(ToFrame2);
 ToFrame2.Free ;
end;

Pourquoi ToFrame2 devrait se supprimer des ses controls (ce n'est pas la gestion mémoire, contrairement à RemoveComponents) ...

Code :

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

1
2
3
4
procedure TFrameBt2edit.CloseClick(Sender: TObject);
begin
 Self.Release(); 
end;

...

[Ardely]

Tu as raison, ce n'est pas correct je viens de corriger pour faire cela.

Code :

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

1
2
3
4
5
 
Procedure  Init_Panel2; 
begin 
 ToFrame2 := TFrameBt2edit.Create(Form1);
 ..

L'idée était de détruire tout les composants et les codes.. en une seul fois qui étaient placer sur la Frame ' ToFrame2 ' en cliquant sur le bouton 'close'

Le bouton close biensure je la mets sur une autre form.

[Ardely]

Ainsi, si j'ai bien compris je ne peux pas détruire tout les composants placé
sur un frame en une seule fois, 'en détruisant seulement le frame'.
(Je dis ceci car j'avais cru que en détruisant un frame avec tout dessus,
les composants étaient détruits automatiquement aussi)?

Donc je dois les détruires un par un à partir de la dernière création à la
première création!

Merci pour l'info et salutations.

[ShaiLeTroll]

Les composants posés via IDE Delphi, seront libérés, via le mécanisme de Owner ...

les objets/pointeurs que tu créé toi même via des create, des new, ... tu as la charge de libération si tu n'as pas précisé le Owner pour le Components