Discussion :

[PaulR]

Soit le problème simple suivant :
Imaginons une classe qui ressemblerait à ceci :

Code :

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

1
2
3
4
5
6
7
TMaClasse = Class(TObject)
  variable1 : string;
  variable2 : integer;
  variable 3 : float;
(...)
  function Defi( pNomVariable : shortstring ) : variant;
end;

Je voudrais que ma fonction

Code :

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

1
2
 
valeur := defi('variable1');

me retourne le contenu de la variable variable1 au moment de l'appel.

Izipossibeul ?
(et si oui, comment :-)))

Paul

[DragonHeart]

Code :

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

1
2
3
4
5
function Defi( pNomVariable : shortstring ) : variant;
Begin
  If pNomVariable = 'Variable1' Then Result := Variable1;
  ...
End;

Il y a d'autre façon de faire mais ceci en est une (simpliste et pas forcement meme certainement pas la meilleur).

@+

[TicTacToe]

Bonjour,

Ton titre est peu piègeant.

'Une variable de classe' laisse penser au parallèle des méthodes de classe, hors elles n'existe pas en Delphi (les var. de classes) et ce n'est pas le sujet

Sinon, je te suggère de te tourner vers l'excellent tutoriel de Laurent dardenne sur les RTTI pour arriver à tes fins.
C'est faisables à condition de publier tes propriétés/variables.

[Pascal Jankowski]

Regarde dans l'unité TypInfo, tu y trouveras ton bonheur.
Notemment avec les fonctions :

Code :

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

1
2
3
4
5
6
7
 
function GetPropValue(Instance: TObject; const PropName: string;
  PreferStrings: Boolean = True): Variant; overload;
 
 
procedure SetPropValue(Instance: TObject; const PropName: string;
  const Value: Variant); overload;

[ShaiLeTroll]

Code :

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

TMaClasse = Class(TPersistent)

pour que le RTTI fonctionne la classe de base doit être compilé en M+

[e-ric]

Code :

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

TMaClasse = Class(TPersistent)

pour que le RTTI fonctionne la classe de base doit être compilé en M+

Petite précision (à vérifier) : les variables doivent être des propriétés publiées (déclarées comme propriété dans une section published de la classe).

cdlt

e-ric

[TicTacToe]

Code :

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

TMaClasse = Class(TPersistent)

pour que le RTTI fonctionne la classe de base doit être compilé en M+

Il me semble que ce n'est pas la peine de préciser cette directive si l'objet descend d'un TPersistent, sinon il le faut.

Petite précision (à vérifier) : les variables doivent être des propriétés publiées (déclarées comme propriété dans une section published de la classe).

il me semble que c'est effectivement obligatoire aussi

[PaulR]

'Une variable de classe' laisse penser au parallèle des méthodes de classe, hors elles n'existe pas en Delphi (les var. de classes) et ce n'est pas le sujet

Oui, c'est vrai, mais pas fait exprès, je pensais juste aux variables qui se trouvent dans ma classe. Ceci dit, merci à tous pour vos explications. M'en vais creuser tout ça... Bon, j'ai peut-être cliqué un peu vite sur résolu, là, j'ai pas encore lu la doc, chuis p'tête trop optimiste, mais je le sens bien :-))

Merci encore...