Discussion :

[Kriboo]

Bonjour,

J'ai créé un composant dérivant de TCustomControl (cf topic dans ce forum: composant formé de plusieurs autres) et je pense avoir (c'est sur même) oublié une dé-allocation d'objet.

J'explique:

Le composant peut être intégré dans une forme, et il fonctionne bien. Lorsque je quitte la forme, j'ai une violation mémoire dans mon exe généré. je valide et j'ai une autre violation. Enfin lorsque je quitte delphi (car il ne fonctionne plus correctement), j'ai encore une violation mémoire. (La mémoire ne peut être read)

Je fournis le source du composant, si vous pouviez m'indiquer ce qui manque, avec une petite explication histoire de ne pas me coucher trop bête.

Merci

[Kriboo]

Toutes mes excuses, j'ai trouvé le problème.

évidemment il faut que j'ai posté pour l'identifier: esprit pervers.

Bon pour info c'est lorsque dans le créate du composant j'appel les créates des sous composants, pour FEcriture j'appel Create(FLecture) au lieu de Self (ou l'inverse).

évidement il n'aime pas.

Si ce sujet est inutile, ne pas hésiter à supprimer.

A bientot

[Jipété]

Salut.

J'ai pas de Delphi sous la main pour tester, mais en toute première approche, moi j'inverserais la libération de FLecture et FEcriture, puisque le second dépend du premier, si j'ai bien compris.
Donc :

Code :

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

1
2
3
4
5
6
7
destructor TAnalogique.Destroy;
begin
  FLabel.Free;
  //FLecture.Free; si mis ici, le FEcriture va être orphelin, nan ?
  FEcriture.Free;
  FLecture.Free; // probablement mieux ici
  ...

Ou alors j'ai rien pigé ?

[Kriboo]

Salut.

J'ai pas de Delphi sous la main pour tester, mais en toute première approche, moi j'inverserais la libération de FLecture et FEcriture, puisque le second dépend du premier, si j'ai bien compris.
Donc :

Code :

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

1
2
3
4
5
6
7
destructor TAnalogique.Destroy;
begin
  FLabel.Free;
  //FLecture.Free; si mis ici, le FEcriture va être orphelin, nan ?
  FEcriture.Free;
  FLecture.Free; // probablement mieux ici
  ...

Ou alors j'ai rien pigé ?

Le problème venait exactement de ça, seulement c'est une erreure de ma part, car je voulais du Self, pas le FLecture. Donc heureusement que j'ai déalloué dans le mauvais sens, sinon je ne me serais jamais rendu compte de cette bétise.

Enfin merci d'avoir regardé, et bonne journé

kriboo