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