Discussion :

[camatchou]

Bonjour,

mon problème les amis est le suivant :
j'ai une variable M , string qui a une valeur quelconque ,
j'ai un champs TEDIT : edit1.text par exemple,
Le nom de cette variable est stocké dans le champs edit1 : edit1.text := 'M' ,
je veux récupérer la valeur de M par l'intermédiaire de edit1.text

merci d'avance

[JP.NUAGE]

Tu as donné la solution : tu nous dis

Code :

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

edit1.Text := 'M'

donc

Code :

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

Nom_de_Champ := edit1.Text;

ou alors je n'ai rien compris à ton problème !

[Okaryn]

Je pense qu'il imagine plutôt quelque chose comme RTTI.

Mais je te conseil plutôt d'utiliser un TDictionary pour stocker les variables dont tu souhaites y accéder plus tard par leurs noms. Avec une petite recherche, tu aurais trouvé ceci

[Nono40]

Je pense qu'il parlait plutôt de récupérer la valeur d'une variable M et non pas le contenu du TEdit.

Quelque chose comme :

Code :

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

Edit1.Text := ValeurDeLaVariablesDonLeNomEst(Edit2.Text);

Sauf que c'est tout simplement impossible en Delphi pour des variables. C'est juste possible avec les propriété publiées des objets.

[camatchou]

rebonjour,

c'est à peut pret ce que nono40 a dit , mais c'est plutot l'inverse :

edit2.text := valeur_de_la_variable_contenue_dans(edit1.text)

[ShaiLeTroll]

c'est à peut pret ce que nono40 a dit , mais c'est plutot l'inverse

Tu ne dis pas l'inverse de Nono40 mais juste une inversion de Edit1 et Edit2 !
Evite nous embrouiller !

Même réponse RTTI pour les Objets déclarés en M+ comme le TPersistent !
Ou les Nouvelles RTTI pour le reste
Sinon utiliser une Registry comme suggéré par Okaryn évoqué dans le sujet Trouver une classe par son nom sans descendre de TPersistentClass

Code :

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

1
2
3
4
5
6
7
8
9
10
TForm1 = class(TForm)
  Edit1: TEdit;
  Edit2: TEdit;
  Button1: TButton;
  Button2: TButton;
private
  FValue: Integer;
published
  property M: Integer read FValue write FValue;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
uses TypInfo;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  M := -12456:
  Edit1.Text := 'M';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := TypInfo.GetOrdProp(Edit1.Text); 
  TypInfo.SetOrdProp(Edit1.Text, 789);
  ShowMessage(IntToStr(M));
end;

[camatchou]

ok,

j'ai essayé mais j'ai trouvé des problèmes avec GETORDPROP ,
il s'agit peut etre d'une mauvaise manipulation de ma part, mais je vais m'en assurer. je rappelle que je travaille avec delphi 7.

[ShaiLeTroll]

j'ai essayé mais j'ai trouvé des problèmes avec GETORDPROP

Merci d'être précis !
C'est très interessant de savoir que tu as des problèmes sans savoir lesquels !

Bon, il est évident que tu n'as pas eu le courage de lire l'aide, de vérifier les nombres de paramètres de GetOrdProp et SetOrdProp
Qu'il fallait juste ajouter Self que j'avais oublié !

Code :

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

1
2
3
4
5
6
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := TypInfo.GetOrdProp(Self, Edit1.Text); 
  TypInfo.SetOrdProp(Self, Edit1.Text, 789);
  ShowMessage(IntToStr(M));
end;

Tu es débutant, tu t'attaques aux RTTI, c'est du sérieux, si tu pars dans sur voie, fais un peu plus d'effort !
J'ai eu des collègues avec plus de 15 ans d'ancienneté que ne les avait JAMAIS utilisé !
En as tu tellement besoin ?

je rappelle que je travaille avec delphi 7.

Aucun problème, c'est le TypInfo avec les "anciennes RTTI" que j'utilise au moins depuis D5 qui doit exister si ça se trouve depuis Delphi 1

[Nono40]

Code :

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

1
2
3
4
5
6
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := TypInfo.GetOrdProp(Self, Edit1.Text); 
  TypInfo.SetOrdProp(Self, Edit1.Text, 789);
  ShowMessage(IntToStr(M));
end;

A condition que M soit une propriété publiée et non pas un simple champ ou d'une visibilité inférieure

Autrement dit sous la forme :

Code :

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

1
2
3
4
5
6
7
8
 
  Fiche : TForm
    ...
  Private
    FM : Integer;
  Published
    Property M:Integer Read FM write FM;
  End;

Sinon je confirme que c'est rare comme besoin

[ShaiLeTroll]

La remarque de Nono40 est pertinente, les DEUX parties de mon code ICI sont importantes
Il faut prendre l'ensemble, la déclaration et le code !

[camatchou]

cher shailetroll,

sois un peu plus modeste dans tes réponses ,
en fait la solution est plutot :

Code :

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

Edit2.Text := inttostr(TypInfo.GetOrdProp(self,Edit1.Text));

encore une fois tu as oublié inttostr(...

[ShaiLeTroll]

LOL
Mon ancien patron m'avait demandé d'être moins intransigeant et plus humble
Ben c'est mon ancien patron
Et puis tu as pensé à ma réputation de Méchant Troll !

Je suis en C++Builder2007 et XE2, la conversion de int vers String est implicite et réciproquement grâce au Constructeur String(int src).
Je m'habitue de plus en plus à cela

Tu m'excuseras de mon imprécision !
Mais tu as tout de même résolu ton problème, ce n'est donc pas bien méchant comme oubli !

Code c++ :

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

1
2
3
4
5
6
void TForm1::Button2Click(TObject * Sender)
{
  Edit2->Text = TypInfo::GetOrdProp(this, Edit1->Text); // Appel implicite au bon constructeur qui effectue le IntToStr à notre place
  TypInfo::SetOrdProp(this, Edit1->Text, 789);
  ShowMessage(M); // Encore le constructeur
}

Et sinon, ce n'est pas comme si il existait Comment modifier une propriété par son nom ?

[camatchou]

Effectivement, grace à vous mon problème a été reglé et je vous en remercie beaucoups et je compterai toujour sur vous pour nous donner un coups de pousse.
Merci encore une autre fois.