Fuite de mémoire sur un TMemo créé dans une classe ?

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

Code:

---

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:

---

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:

---

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

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.

Bonjour,
merci pour ces explications.
bonne journée