Instruction Class Of

Je voudrai pouvoir traiter TClass comme un pointeur. Dans le sens

Code:

---

1 2 3 4 5

a: TClass; p: Pointer;   p := Pointer(a);

---

Ca marche.
Cependant dans le sens

Code:

---

1 2	a := TClass(p);

---

Ca ne marche pas. En quoi dois-je transtyper mon pointeur ?

Imaginons que j'ai transtypé de cette manière 2 pointeurs différents, comment tester s'il s'agit de la même classe ou si l'une est un descendant de l'autre ??

Ca m'interesserai de pouvoir non seulement comparer 2 types mais aussi de récupérer un truc que je puisse typecaster en class of TObject.

Citation:

---

Ca ne marche pas.

---

Qu'entends-tu pas là ? A la compil ? à l'execution ? Quel est le message d'erreur ? etc.

Théoriquement, tu peux tout à fait le faire puisque (en Delphi5 en tout cas) la méthode classType() renvoie un pointeur sur la VMT. Donc peux sans problème le transtyper en pointeur. Tu dois même pouvoir comparer directement les pointeurs, mais évidemment ça te permettra seulement de savoir si il s'agit exactement des mêmes classes (pas si elles héritent l'une de l'autre).

En pratique, chez moi, ça a l'air de marcher. Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var c : TClass; c2 : TClass; p : pointer; begin c := button1.ClassType; p := pointer(c); c2 := TClass(p); showmessage(c2.ClassName); end;

---

Cordialement,

A la compil. Apperement je me suis planté dans ce que j'ai écris. La fatigue sans doute :oops:

class of MyObject c'est un pointeur sur la VMT ?? c'est bien ça ?

Citation:

---

class of MyObject c'est un pointeur sur la VMT ?? c'est bien ça ?

---

Ouaip; en tout cas quand je regarde le code de classType() c'est ce qu'il me semble :

Code:

---

1 2 3

asm mov eax,[eax] end;

---

Juste pour info (je ne sais si tu le sais), la VMT en Delphi contient beaucoup plus de données que simplement la liste des adresses des methodes virtuelles. Par exemple : liste des methodes dynamiques, liste des interfaces, liste et types des primitives publiées, nom de la classe, un pointeur vers la VMT parente (logique), etc, etc.
En espérant que tout ça te sera utile,

Phil,

Merci.

C'est toujours utile de comprendre ce qui se passe dans le code.