Discussion :

[Alfred12]

Bonjour à tous,

A est une variable pointant sur un Object de type TMonObjet, B pointe sur A, je détruit A. Y a t il un moyen de savoir que B ne pointe plus sur A mais dans un endroit inhabité de la mémoire ? A mon sens non, mais comme j'ai un doute je vous soumet le problème. Merci pour vos réponses.

Un petit exemple pour y voir plus clair :

Code :

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

1
2
3
4
5
A := TMonObject.Create;
B := A;
A.Free;
 
B.MaProc --> Exception et B <> nil

[Graffito]

Bonjour,

Tu as raison, Pas moyen de savoir.
Si après le free la mémoire de A n'a pas encore été réallouée, B->Maproc pourra fonctionner parfaitement. L'exception sera donc aléatoire.

[Laurent Dardenne]

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
 
A := TMonObject.Create; 
B := A; 
FreeAndNil(A); 
 
If Assigned(B) 
 then B.MaProc;

[Graffito]

Bonjour,

FreeAndNil peut donner temporairement un bon résultat.
Mais dès que la mémoire sera réallouée, on aura des problèmes.

Essaie ce code:

Code :

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

1
2
3
4
5
6
7
var A,B,C: tstringlist ;
begin
A:=tstringlist.create ;
B:=A;
freeAndNil(A) ;
C:=tstringlist.create ;
if assigned(B) then showmessage('B assigned') else showmessage('B not Assigned') ;

Le résultat sera "B assigned".

[TicTacToe]

+1 Graffito

FreeAndNil ne fait rien d'autre que
1. Désallouer
2. Affecter Nil à la variable pointeur (d'ailleurs passée en 'var' dans la procedure FreeAndNil).

Ctrl-Clic sur FreeAndNil et on peut constater le code Delphi.

Comme on pouvait le faire qd cette fonction n'existait pas.
Donc B... reste avec sa valeur d'avant et est inchangée.

Défaut corrigé dans ADA avec son garbage collector

[Laurent Dardenne]

FreeAndNil peut donner temporairement un bon résultat.

Je ne connaissais pas ce pb potentiel,