Discussion :

[miniworker]

Bonjour,

D'après la documentation de Delphi, on peut utiliser la propriété ".Tag" d'un objet pour stocker une référence ou un pointeur.

TComponent.Tag Propriété

Stocke une valeur entière dans un composant.
Classe : TComponent
Syntaxe :[Delphi] property Tag: Integer read FTag write FTag;

Description
Tag n'a pas de signification prédéfinie. La propriété Tag est fournie pour les besoins des développeurs. Elle est proposée pour stocker une valeur entière ou elle peut être transtypée sur n'importe quelle valeur 32 bits, comme une référence de composant ou un pointeur.

J'essaye donc de l'utiliser avec " as " mais le compilateur me mets :

1 - objet.Tag := instance_autre_objet;
==> erreur : E2010 - Types incompatibles

2 - (objet.Tag as TMaClasse) := instance_autre_objet;
==> erreur : E2015 - Opérateur non applicable à ce type d'opérande

3 - objet.Tag := instance_autre_objet as Integer;
==> erreur : E2015 - Opérateur non applicable à ce type d'opérande

Est-ce que quelqu'un a déjà été confronté à ce problème ? Comment l'utiliser ?

Merci

PS :
Pour ceux qui se demande pourquoi j'ai besoin d'utiliser cette "astuce" c'est pour pouvoir faire une trace par connexion de base de données établies.
J'ai un pool de connexion qui est attribué à des threads [verrouillage par mutex ou TCriticalSection]. J'ai besoin de tracer indépendamment chaque requête qui passe par chaque connexion.
Donc, je crée une classe de trace que j'associe avec la connexion.
S'il y a d'autres moyens je suis preneur

[sjrd]

Le transtypage, ce n'est pas Inst as Integer, mais Integer(Inst). Et inversement, TMaClasse(Tag) et pas Tag as TMaClasse.

[miniworker]

Le transtypage, ce n'est pas Inst as Integer, mais Integer(Inst). Et inversement, TMaClasse(Tag) et pas Tag as TMaClasse.

Correct

Merci en tout cas.
Pour ceux qui en ont eu besoin comme moi :
http://www.developpez.com/delphi/faq...uidtranstypage

[Mithrandil]

Bonjour,

J'utilise aussi la méthode suivante :

Ecriture :

Code :

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

1
2
3
MonObj := TMaClass.Create(Self);
Objet.Tag := Integer(MonObj);
...

Lecture

Code :

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

1
2
3
4
5
p: pointer;
 
p := addr(tag);
TMaClass(p^).Property := valeur
etc ...

[ShaiLeTroll]

perso, je préfère utiliser un objet dédié au Tag pour ensuite encaspulé l'objet lié ... voir ICI