[RTTI] TObject.FieldAdress(Name : String) : Pointer

J'ai une question a propos de cette methode :
Est ce que o1 = o2 ?? :

Code:

---

1 2 3 4 5

o1, o2 : TObject;   o1 := Label1.FieldAdress('Font'); o2 := Label1.Font;

---

Mon but est de gerer via les RTTI la detection des proprietes d'un sous objet.

Je recupere la liste des props de Label1, puis pour toutes les props de type tkClass je cherche a recuperer l'adresse de cette proprietee pour relancer la fonction de detection sur ce sous objet.
LE but etant d'obtenir la hierarchie complete des proprietees accessible a partir d'un objet.

Non, et c'est même pas correct ce que tu écris, tu dois utiliser GetPropList, IsPublishedProp, SetPublishedProp et GetPublishedProp.

Justement, j'ai ecrit une fonction qui se base sur les RTTI (GetPropInfo, TTypeDate, TTypeInfo, etc ...)

JE recupere aisni la liste en string des proprietes published d'un objet a partir de sa variable TObject.

Maintenant j'aimerais a partir du nom des proprietes de type tkClass recuperer l'instance de ce sous objet pour en recuperer ses methdoes.

Exemple :

Code:

---

1 2 3 4 5 6 7 8

o : TObject; Liste := GetPropertyListeFromObject(Label1, tkClass); // Ma procedure For i := 0 to Length(Liste)-1 do Begin <recupere l'instance de Label1.<Liste[i]> sans "o"> Liste 2 := GetPropertyListFromObject(o, tkclass); End;

---

Actuelement je dois faire ca quand je trouve la proprietee:

Code:

---

1 2 3 4 5 6 7

TypeData2 := GetTypeData(PropList^[i]^.PropType^); if lowercase(PropList^[i]^.Name) = Lowercase(Name) Then Begin o:= TypeData2^.ClassType.Create; <calcul recursif sur o> End;

---

Oki j'ai trouvé :

Code:

---

1 2	TypInfo.GetObjectProp(Label1, 'Font', TFont);

---

Sur le site que j'ai visité .. ils disaient pas tout ^^
Heureusement que les sources des unites delphi sont la :D