Discussion :

[Clorish]

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

Code :

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

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.

[sjrd]

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

[Clorish]

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 :

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

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 :

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

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;

[Clorish]

Oki j'ai trouvé :

Code :

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

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