Discussion :

[Clorish]

Je viens de me rendre compte que si on declare en local de procedure un objet, il est possible que le teste :

Code :

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

1
2
 
If Assigned(AOject) Then ...

Soit vrai meme si l'objet n'est pas cree.

Je suppose que cela viens du fait que les variables locales ne sont pas initialisées a la compilation, et si le residu memoire pointe vers un objet classe, il est considéré comme valide !!

C'est comme ca que si je teste plusieurs infos de classe de mon Object de type TObject, je me retrouve a avoir les infos d'un Button .....

Ca implique une toute autre methdoe de conception ! (a savoir : Initialiser les var locales objet a nil !)

quelqu'un peut confirmier ce probleme ? o eventuelement m'aider a trouver pkoi j'ai ce bug :/

[MD Software]

Ce n'est pas un bug, et tu as clairement identifier les raisons. Tant que tu n'es pas initialisé, ton objet vaut n'importe quoi, même un autre objet.
D'ailleurs, Assigned, se contente juste de faire un test sur nil.

[cpdump]

Oui c'est normal puisque la référence sur l'objet est alloué dans la pile et contient n'importe quoi.

[Clorish]

Oui jusque la je comprends bien ... et c'est pour ca que j'ai clairement identifier les problemes .... (merci les cours de compil )

Parcontre la ou le bat blesse c'est que du coup toutes les procedures que j'ai cree depuis des lustres et pour lequelles j'ai passe du temps a les securisées evec des If Assigned ne servent a rien ?

Il n'y a aucun moyen de permettre la verification de la bonne creation d'un objet en passant outre ces problemes ?

Sinon je vous racontent pas le temps de debuggage necessaire avant de trouver la solution d'un tel bug .....

[MD Software]

Si tes objets ne sont pas initialisés à nil, tes Assigned ne servent à rien.

Le seul moyen, c'est soit de modifier ton code pour initialiser tous tes objets [à la création et à la suppression] ou alors, un système un peu lourd, mais qui fonctionne, c'est de remplacer tous tes Assigned par un gestionnaire d'exception. Tu tentes d'accéder à une propriété des objets, et si tu as une voliation d'accès, c'est qu'il n'était pas alloué. Comme tu attrapes l'exception, l'utilisateur n'aura pas l'erreur, mais tu pourras la logguer.

Et oui, j'avais dit que c'était lourd.

[Clorish]

Bonne idee mais cela ne regle pas le probleme :
1e il faut que cette methode soit specifique a la classe autrement dit il faut developper un "CustAssigned' specifique par classes. Vu que si il est possible que la var objet possede en residu memoire une adresse d'instance d'un objet valide, si la methode n'est pas specifique il est possible qu'elle retourne un succes.

De meme, si la fonction CustAssigned est specifique la la classe, autrement dit renvoie faux si la methode specifique de la classe n'existe pas , cela n'empechera pas de renvoyer true si le hasard fait que l'instance pointee de maniere residuelle soit vers un objet de meme classe ....

Je crois qu'il va faloir s'obliger a initialiser a nil tout objet cree en local ...

Je trouve quand meme etrange que cela ne soit jamais mentionné ....
en bientot 15 ans de progs, j'ai jamais vu qqun me dire "Attention ton objet n'est pas initialisé" comme si c'etait normal .....

[Edit] Erf .. en plus l'initialisation dans la declaration locale ne marche pas .. faut passer par une affectation par ligne de code :/

[MD Software]

Un petit truc me démange depuis tout à l'heure.

Tu sais ..... normallement ....... quand tu arrives dans une méthode, tu ne devrais pas avoir à te poser la question si ton objet est créé ou pas, tu devrais le savoir ...... si la conception est bonne.

[cpdump]

C'est assez rare de tester l'existence d'un objet dans un procedule locale avant qu'il soit créé, c'est pour cela que l'erreur est peu fréquente, cela arrive surtout dans la gestion des exceptions sinon il y a de forte chance que cela soit un problème de conception.

[tourlourou]

au lieu de

Code :

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

if Assigned(AObject) then ...

essaye

Code :

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

if AObject is TMachin then ...

reste la possibilité que tu évoquais d'un hasard faisant pointer sur une instance de TMachin !

[Clorish]

En fait vous avez raison.

LE fait de tester l'assignation d'un objet dans uen de ses propres methodes releve d'un probleme de conception. mais en allant au dela, le phenomene rends impossible la "securisation" d'une procedure manipulant un parametre type objet.

Genre je declate un TStringList, que je transmet a une procedure qui me le remplit.

En interne je fais souvent des if not Assigned Then Exit.


Sinon l'idee du MonObjet is TMachin est bien mais demeure encore specifique a la classe cad qu'il est impossible de generer une methode generique.
Genre je manipule mes objets en tant que TObject mais en souhaitant quand meme verifier le fait que cet objet est bien créé.

Quoi qu'il en soit, la seulle solution pour le moment est de garder en tete ce probleme et surveiller les creation d'objets locaux. J'aurais prefere une affectation dans la declaration genre Var O : TObject = nil;