[Debug] Comment obtenir le nom et/ou l'adresse d'un TObject ?

Je cherche une maniere quelconque qui me permette de defferencier visuelement 2 Instance d'une meme classe non heritee de TComponent mais de TObject.

N'ayant pas la prop 'Name' a afficher, et ne pouvant conserver le nom de la variable dans l'execuable, je cherche donc dans le pire des cas de pouvoir afficher l'adresse de la variable contenue dans "Self".

tout autre methode sera la bienvenue ...

LE but etant de creer une sorte de Debugger qui m'affiche donc une chaine du type : "Entree dans la methode MonObjet.Create"

tu peux pê utiliser un

Code:

---

ShowMessage(IntToStr(Cardinal(self)));

---

Effectivement .. merci ;)

J'ai essaye int to str, Pointer .... bref j'ai pas pense aux cardinaux ;)
Bon un chiffre c pas terrible mais c deja ca. Si qqun a une methode pour recuperer d'une maniere ou d'une autre une version "String" du nom de la variable ...

y'a pas, à mon avis :
self pointe vers une zone mémoire :
- pointeur sur la VMT
- pointeur sur la zone des données membres
je ne pense pas que le nom de la variable soit récupérable, le compilo résolvant les liens en interne grâce à des tables pas accessibles !!!

Citation:

---

je ne pense pas que le nom de la variable soit récupérable, le compilo résolvant les liens en interne grâce à des tables pas accessibles !!!

---

Vi ca je le sais ... mais on peut cour circuiter ce systeme ...

J'ai pense "enregistrer" un objet lors de sa creaton en appelant une methode "RegisterObject" qui stocke dans un tableau l'adresse de self et un nom que je donne (version string du nom de al variable).
Ca marche plutot bien sauf que c'est peut etre un peu lourd (mais bon c'est du debugg) et ca ne marche qu'apres avoir cree l'objet, cad que toutes les procedures appelles dans le create ne permettent pas de generer des ligens de logs avec la version String car non encore ressencé ..

Enfin c'est peut etre confus mais bon ca marche deja pas trop mal .. on fera evoluer avec le temps.

Merci.