[Langage/Algorithme] Vidage et libération de la mémoire

Salut
ce comportement ben que surprenant est normal

dans ton code

Code:

1
2
 
StringGrid1 = new TStringGrid(Form1);

le propriétaire de la Grille est la Form qui est chargée de sa suppression
si tu désire gérer toi même ce composant ce paramètre doit être NULL

tu trouvera ci-dessous un code d'exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
le .H
// ---------------------------------------------------------------------------
 
#ifndef MainH
#define MainH
// ---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Grids.hpp>
// ---------------------------------------------------------------------------
 
class TForm140 : public TForm
 {
	__published: // Composants gérés par l'EDI
	TButton *Create;
	TButton *FreeMem;
	TButton *DeleteGrid;
	void __fastcall FreeMemClick(TObject *Sender);
	void __fastcall DeleteGridClick(TObject *Sender);
   private: // Déclarations utilisateur
		TStringGrid* mGrid;
		void __fastcall FillGrid();
	public: // Déclarations utilisateur
		__fastcall TForm140(TComponent* Owner);
 
  };
 // ---------------------------------------------------------------------------
 extern PACKAGE TForm140 *Form140;
// ---------------------------------------------------------------------------
#endif

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
le .cpp
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm140 *Form140;
//---------------------------------------------------------------------------
__fastcall TForm140::TForm140(TComponent* Owner)
	: TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm140::CreateClick(TObject *Sender)
{
   System::Classes::TComponent* AOwner=NULL;
   mGrid= new TStringGrid(AOwner);
   mGrid->ColCount=0;
   mGrid->RowCount=0;
   mGrid->Parent=Form140;
   mGrid->Left=50;
   mGrid->Top=60;
   FillGrid();
   mGrid->Show();
}
 
//---------------------------------------------------------------------------
void  __fastcall TForm140::FillGrid()
{
  int Ln(10000);
  int cl(100);
  mGrid->ColCount=cl;
  mGrid->RowCount=Ln;
  for (int c=0; c < Ln; c++) {
	  for(int l=0; l < cl; l++){
	  mGrid->Cells[c][l]=L"Informations de tests pour vérifier le comportement de la mémoire sous Win32 ";
 
	  }
 
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm140::FreeMemClick(TObject *Sender)
{
	for (int Cl=0; Cl < mGrid->ColCount ; Cl++) {
	 for (int Rw=0; Rw < mGrid->RowCount ; Rw++) {
	   mGrid->Cells[Cl][Rw]="";
	 }
	}
	mGrid->ColCount=0;
	mGrid->RowCount=0;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm140::DeleteGridClick(TObject *Sender)
{
  delete mGrid;
}
 
//---------------------------------------------------------------------------

Explication

le bouton Create initialise un composant TStringGrid
le remplissage de cette Grille est réalisé dans la procédure FillGrid avec 10000 Lignes et 100 colonnes avec un contenu conséquent
résultat la consommation mémoire passe à 216 Mega
la libération de la mémoire se passe dans la procédure FreeMemClick on remarque que le tableau est vide mais pas la mémoire consommée
ce n'est que lorsque la procédure DeleteGridClick est appelée que le tableau est détruit et la mémoire revient pratiquement à son occupation avant l'appel

Conclusion gère toi même le composant

cordialement