Discussion :

[sfpx]

Bonjour, je débute en Delphi et j'aimerais comprendre une chose.

J'ai installé un composant de dialogue et j'ai regardé le code source.
Il n'a pas de destructeur et je ne suis pas certain de comprendre pourquoi.

Dans le constructeur "create" il crée pourtant des tstringlist et un tcustomicon.

J'ai même essayé d'ajouter moi-même le destucteur en y ajoutant les .free de ces stringlist en question mais cela génère une erreur à la sortie du programme.

Ce que je comprend c'est que le "owner" s'occuppe lui-même de libérer la mémoire de ces stringlist en question ??

Je suis un peu confus. Merci de m'éclairer

[sfpx]

Voici le code de creation

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
19
20
21
22
23
constructor TUserDlg.Create (AOwner : TComponent) ;
begin
     inherited create (AOwner) ;
     jpegimage:=tjpegimage.Create;
     FButtons := TStringList.Create ;
     FFont := TFont.Create ;
     FButtons.Add ('&OK') ;
     FButtons.Add ('&Cancel') ;
     FMessage := TStringList.Create ;
     FMessage.Clear ;
     FCustomIcon := TPicture.Create ;
     FBackColor := clBtnFace ;
     FIcon := icNone ;
     FParams := TStringList.Create ;
     FParams.clear ;
     FDefault := -1 ;
     FCancel := -1 ;
     FWAV := wavNone ;
     FButtonsCursor := crDefault ;
     FResourceWAV := False;
     fButtonsMinWidth:= 75 ;
     fButtonsSameWidth:= True;
end ;

Bon, après un examen rapide de mon code j'ai trouvé ce qui générait l'erreur dans le code de mon destructeur.

La question demeure tout de même. Est-ce une erreur du composant de ne pas avoir de destructeur dans ce cas particulier?
[/quote]

[Charette]

Je vais me risquer a une explication

Il n'a pas de destructeur et je ne suis pas certain de comprendre pourquoi.

Si le composant que tu as installé est un héritage, il se peut que le destructeur n'est pas été redéfini.

Dans ce cas il se peut qu'au moment d'appelé un destructeur il appelle celui de la classe mère.

[sfpx]

Je vais me risquer a une explication

Il n'a pas de destructeur et je ne suis pas certain de comprendre pourquoi.

Si le composant que tu as installé est un héritage, il se peut que le destructeur n'est pas été redéfini.

Dans ce cas il se peut qu'au moment d'appelé un destructeur il appelle celui de la classe mère.

Sauf que le destructeur de la classe "mère" ne détruirait pas les créations additionelles placées dans le constructeur.

En tout cas, j'ai ajouté le destructeur suivant pour être plus sûr.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
destructor TUserDlg.Destroy;
begin
    jpegimage.Free;
     fmessage.Free;
     fcustomicon.Free;
     fbuttons.Free;
     ffont.Free;
    fparams.Free;
     inherited Destroy;
end;

Je ne sais pas si j'ai bien fait mais en tout cas je n'obteins pas d'erreur.

P.S.
TUserDlg = class(TComponent)

[Reisubar]

Il n'y a rien de magique en effet. A moins qu'un autre composant s'en charge, tout ce qui est construit dans le constructeur doit être détruit dans le destructeur.

Pour vérifier, installes et utilises MemCheck:

http://v.mahon.free.fr/pro/freeware/memcheck/

Tu pourras vérifier si fuite de mémoire il y a lorsque le destructeur n'est pas surchargé...