yvescollet
Messages postés55Date d'inscriptionmardi 26 août 2003StatutMembreDernière intervention22 janvier 2006
-
10 août 2005 à 08:31
yvemoreau
Messages postés308Date d'inscriptionmardi 11 juin 2002StatutMembreDernière intervention26 septembre 2008
-
13 août 2005 à 20:19
bonjour,
j'ai un petit problème avec des objets qui prennent comme valeur "inaccessible value" lorsque je débug un programme, et lorsqu'à la fin de celui-ci je fais :
if assigned(MonObjet) then
begin
FreeAndNil(MonObjet);
end;
j'obtiens une access violation. Y'a-t-il donc moyen de tester si un objet est égal à "inaccessible value"?
yvemoreau
Messages postés308Date d'inscriptionmardi 11 juin 2002StatutMembreDernière intervention26 septembre 2008 13 août 2005 à 20:19
if assigned(MonObjet) then //si l'objet existe
begin
if(MonObjet<>nil)then// assurément si assigné mais bon...
if(MonObjet.Propriete<>nil)then ; //...ici la propriete a une valeur
else ;//...ici la propriete n'a pas de valeur ou n'est pas accessible .
donc on refais le test a chaque sous propriété que l'on souhaite accéder MonObjet.Propriete.SousPropriete etc...
FreeAndNil(MonObjet); //ne renvois pas d'erreur même si n'existe pas ,enfin, il me semble ...