Fuite de memoire

Question

Bonjour,

J'ai une appli MDI, lors de son ouverture et une fois chargé sans sous fenetre, dans le gestionnaire de taches le processus fait : 15,7Mo, lors de l'ouverture d'une sous fenetre le processus grossit pour atteindre 18,5 Mo, mais lors de la fermeture de cette sous fenetre je ne gagne que 350Ko et mon appli atteind 18,1Mo ......

Quelqu'un a une explication des conseils ? Je pense libérer correctement tout mes objets ..... 

Merci d'avance

florenth · Answer

Pour liberer la memeoir eallouee aux objets il faut utiliser la methode Free.
Pour les forms il faut faire

Form1.Release;


J'espere t'avoir aidé ..
Florent

Si tu ne te plantes pas ......
     tu ne poussera jamais

lelahel08 · Answer

Il y a d'office dans une appli MDI les methodes du style :

procedure TfFicheTaches.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

Normalement pas de release a faire ... si ?

sinon je fait des free sur mes objets correctement pourtant ...

lelahel08 · Answer

J'ai essayé ceci :

procedure TfFicheTaches.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
Release;
end;

... sans succes ....

lelahel08 · Answer

Pour être plus complet :

Ouverture Appli
=> 15752

ouverture SousFenetre
=> 18412

Fermeture SousFenetre
=> 18100

Ouverture SousFenetre
=> 19848

Fermeture SousFenetre
=> 19728

jmp77 · Answer

Hello,

Je t'avouerai que j'ai le même souci que toi. J'ai posté un message aussi à une époque et les réponses ont étées les mêmes. 
Je détruit bien la totalité de mes objets et rien n'y fait. Au fur à mesure de l'utilisation du programme son taux de mémoire augmente.
J'ai remarqué qu'en utilisant un programme de défragmentation de mémoire "rambost xp" et bien la comme par miracle quand je le lance mon programme prends beaucoup moins de place mémoire. 
Voilà je suis désolé de ne pas pouvoir t'apporter de solutions à ton problème mais je voulais de faire part de ces quelques remarques.

Bonne prog,
JMP.

lelahel08 · Answer

Très intéressant, merci

On verra si quelqu'un peut nous renseigner alors !!

cali70 · Answer

Je sais pas je vai peu être dire une grosse bêtise mais peu être que utiliser "destroy" peut marcher.....

procedure TfFicheTaches.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
destroy;      // je sais pas si toutes les lignes sont nécessaires
Release;
end;

florenth · Answer

C'est bête d'appeler Release une fois la fiche detruite ...
Violation D'acces.

Free verifie que l'objet ne pointe pas sur NIL et appele destroy 

Je crois qu'il existe une directive de compilation que permet de gerer la memoire mais dans ce cas il faut aussi l'allouer et la gerer  :sad) 

Donc c'est pas gagne

florent

Si tu ne te plantes pas ......
     tu ne poussera jamais

Fuite de memoire

8 réponses

Votre réponse

Discussions similaires