Discussion :

[Bruno75]

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

Code :

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

1
2
3
4
5
 
a: TClass;
p: Pointer;
 
p := Pointer(a);

Ca marche.
Cependant dans le sens

Code :

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

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 ??

[Bruno75]

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.

[philemon_siclone]

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 :

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

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,

[Bruno75]

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

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

[philemon_siclone]

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 :

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

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,

[Bruno75]

Merci.

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