Discussion :

[neho88]

Bonjour,
je crée une classe comprenant un TMemo qui n'est pas dans une 'form'.

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
 
  TMaClas = Class
    private
       Memo                   : TMemo;                                           // Memo de la classe
    Public
  end;
//-----------
Constructor TMaClas.Create();
  begin
    inherited Create;
     Memo:=TMemo.Create(nil);                                                    // création du Mémo
  end;
//-----------
Destructor TMaClas.MyDestroy();
  begin
    Memo.Free;                                                                  // destruction du Mémo
    inherited Destroy;
  end;

Puis dans ma 'Form' principale, je crée une instance de ma classe pour pouvoir l'utiliser

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
  begin
    MaClas:=TMaClas.Create;                       
  end;

que je détruis lors de la destruction de la feuille

Code :

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

1
2
3
4
5
 
procedure TForm1.FormDestroy(Sender: TObject);
  begin
    MaClas.free;
  end;

lorsque je teste les fuites de mémoires,
le débogueur détecte un problème.
et je ne comprends pas.
merci pour votre aide.
bonne journée

[Andnotor]

Une classe peut déclarer plusieurs destructeurs. Ici, tu en ajoutes un qui s'appelle MyDestroy. La méthode Free appelle cependant toujours celui nommée Destroy (ce n'est pas dépendant du terme Destructor).

Donc soit tu appelles MaClas.MyDestroy à la place de MaClas.Free, soit tu supprimes ce nouveau destructeur et surcharges l'original Destructor Destroy; override.
La deuxième méthode est évidemment à privilégier puisqu'elle assure un comportement polymorphique correct.

[neho88]

Bonjour,
merci pour ces explications.
bonne journée