Discussion :

[bubulemaster]

Bonjour,

voici mon problème.
J'ai créer un objet contenant un integer, un string, un tableau d'entier.
Je créer mon objet.
Je le libère avec Free

Code :

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

1
2
3
4
5
 
procedure TMaClass.Free ;
begin
    // Libération du tableau d'entier et c'est tout
end ;

Ensuite si je faire MaClass.SetInteger(10) ça ne plante pas et j'arrive à récupérer la variable Integer.

Par contre si je fais un MaClass.Free de nouveau, ça plante.

Pour moi mon objet est libéré, mais je ne comprend pas ce comportement.

Quelqu'un comprend-il ?

Merci

[Linkin]

Pourquoi avoir utiliser une procédure du même nom que la procédure Free (du TObject)?

Essaie de changer son nom.

[Aka Guymelef]

Bonjour,

Premièrement il ne faut pas redéfinir la méthode Free pour effectuer des opération lors de la destruction mais le destructor Destroy.

Ensuite, comme il y a un temps de latence entre la destruction et la libération effective de la mémoire, si la valeur contenant l'objet n'est pas mise à NIL après l'appel à Free, la variable reste utilisable pendant un court temps (mais c'est très casse-gueule comme situation).

Pour s'assurer qu'on n'aura pas ce genre de chose, il faut détruire un objet avec FreeAndNil.

[guillemouze]

Bonjour,
Ensuite, comme il y a un temps de latence entre la destruction et la libération effective de la mémoire, si la valeur contenant l'objet n'est pas mise à NIL après l'appel à Free, la variable reste utilisable pendant un court temps (mais c'est très casse-gueule comme situation).

Si je n'm'abuse, ce n'est pas un temps de latence entre la destruction et la lberation effective de la memoire. Le Free va de-reserver cet espace memoire et c'est tout. Donc tout ce qui se trouvait a cet endroit y reste, jusqu'a ce que quelqu'un reseverve cet emplacement et le modifie.

[bubulemaster]

Ah, je me suis trompé, c'est Destroy qu'il faut redéfinir

Code :

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

destructor Destroy; override;

Je confondais avec la libération des fenêtres graphique où il faut appeler Free et non Destroy

Merci de votre aide

[Linkin]

Dans tous les cas il faut appeler Free (ou Release pour les fenetres), mais seul le destructeur Destroy est à surcharger.

Destroy n'est pas à appeler directement.

[bubulemaster]

Est-ce qu'il faut faire un inherited Destroy; si on hérite de TObject ?

[Linkin]

normalement (mais je n'ai pas eu d'erreur quand il m'est arrivé de l'oublier).

Par contre bien le mettre à la fin.

Code :

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

1
2
3
4
5
6
7
8
9
 
destructor Destroy;
begin
....
// Mon code
.....
 
inherited;
end;

[Aka Guymelef]

Si je n'm'abuse, ce n'est pas un temps de latence entre la destruction et la lberation effective de la memoire. Le Free va de-reserver cet espace memoire et c'est tout. Donc tout ce qui se trouvait a cet endroit y reste, jusqu'a ce que quelqu'un reseverve cet emplacement et le modifie.

En fait été assez imprécis quand j'ai parlé de "latence" désolé. Bien sûr ce n'est pas le destructeur qui génère une latence avant que l'objet ne soit effectivement détruit, il marque la zone mémoire précédemment utilisée comme étant ré-utilisable. Cependant tant que le programme ne décides pas de réutiliser cet espace, l'objet continue d'exister en mémoire. Donc la variable (et surtout le pointeur vers l'adresse mémoire qu'il y a derrière) continue de pointer l'objet détruit sauf si on lui affecte NIL. D'où FreeAndNil.

Est-ce qu'il faut faire un inherited Destroy; si on hérite de TObject ?

Pas acquis de conscience je dirais qu'il faut toujours appeler le destructeur hérité, néanmoins il faut bien prendre garde d'appeler l'inherited seulement à la toute fin du destructeur redéfinit.