Discussion :

[Arrown]

Bonjour à vous, cela fait longtemps que je cherche mais en vain. Je cherche une procédure comme suis mais qui me retourne les variables qui ne sont pas obligatoirement PROPERTY.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetProperty(Const AnObject: TObject; Const Propriete : string) : Variant;
begin
// uses typinfo;
if IsPublishedProp(AnObject, Propriete) {and PropIsType(AnObject, Propriete, tkVariant)} then
   begin
   try
     result := GetPropValue(AnObject, Propriete);
     except
     result := NULL;
     end;
   end else
   result := NULL;
end;

Par exemple je voudrais récupérer le selected de la listbox1 (qui ne se trouve pas dans l'inspecteur d'objet)

si je fais

Code :

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

GetProperty(listbox1, 'selected')

.
Il me retournera rien du tout car il va trouver que selected n'est pas une property (ce qui est vrai).

Enfin, voilà. Merci a vous. Je suis presque sur que ma solution ne se trouve pas dans typinfo.

PS : Attention, je sais que getproperty retourne un variant, mais même en modulant complement mon getproperty adapté pour les object, cela ne me retourne que ce qui est property.

[anapurna]

salut


au vu de ton code c'est normal tu demande les propriete
published (publie) alors que selected est public

@+ Phil

[Arrown]

Oui, oui, je ne dis pas l'inverse, mais comment donc récupérer ce selected public (enfin accessible quoi)

[sjrd]

C'est impossible, tout simplement. Parce que seules les propriétés placées dans la section published conservent les RTTI (RunTime Time Iinformation, ou Informations de type à l'exécution).
Tu dois trouver un autre moyen.

[Clorish]

Je confirme ....
Il ne faut pas perdre de vue que derriere chaques variables de tout langage de programation il y a une Adresse memoire. Et c'est seulement cette adresse memoire qui est utilisé par le code assembleur qui est genere par le compilateur.

Les "noms" de procedures, variables, etc ... ne sont que des "alias" qui nous evite de nous trimbaler des adresses partout ... sans aucune significations.

Si toutefois, il est possible de retrouver des methdoes via leurs noms (GetProcAdress) ou des prop .... c'est que le compilateur rajoute certaines informations (justement appeles RTTI par Sjrd) pour nous permettre ca.

Desolé ... mais il faudra bidouiller du code pour "transformer" ces props non published en published ....

[Arrown]

Bon, ok, si vous êtes sure de vous. Je vais donc chercher à contourner.

Merci de vos réponses.

[Clorish]

si vous êtes sure de vous

Malheureusement ..... oui.
J'ai besoin de telles fonctions de puis un bon moment pour rendre mes applis encore plus generiques et pour implementer un systeme de debuggage discret d'applis :/