Accès à la valeur d'une variable par son nom dans une string

Question

Bonjour à tous !!!

voilà je me présente ... quoi? ce n' est pas un site de rencontre? C' est une site sur la programmation Delphi voire ... Lazarus? Bem ça tombe bien j' ai une question! ^^

Voilà, dans certains cas, j' aimerai accéder à une variable comme on le fait avec un compo gràce à la commande FindComponent().  

Exemple: 
unit ABC;
var 
  Variable1, Variable2, Variable3, Variable4, Variable5: Integer;

procedure AAA.OnClick(Sender: TObject);
var 
  i, Valeur: Integer;
begin
  i := GetIndiceOfvariableToUse;  // fonction qui me renvoie un integer entre 1 et 5 ...
  Valeur := FindIntegerVariable('Variable' + intToStr(i));
  ShowMessage(intToStr(Valeur));
  FindIntegerVariable('Variable' + intToStr(i)) := Valeur + 10; // J' ajoute 10 à la variable ...
end;

Je sais que je peux utiliser un array mais je voudrai savoir s' il est possible d' accéder à une variable de cette manière. 
Merci de votre aide. 

A+

cs_MAURICIO · Answer

En fait, 
il voudrais mieux que FindIntegerVariable('Variable' + intToStr(i)) me renvoie un pointeur de type Integer:

procedure AAA.OnClick(Sender: TObject);
var 
  i: Integer;
  p: ^Integer;
begin
  i := GetIndiceOfvariableToUse;  // fonction qui me renvoie un integer entre 1 et 5 ...
  p := FindIntegerVariable('Variable' + intToStr(i));
  ShowMessage(intToStr(p^));
  inc(p^, 10); // J' ajoute 10 à la variable ...
end;

La question reviens donc à comment avoir un pointeur sur une variable. 
Merci d' avance!

jlen100 · Answer

Salut Mauricio,
 dans Delphi comme dans tout langage compilé les noms de variable sont remplacés par leur adresse. Tu peux récupérer l'adresse d'une variable avec l'opérateur @ mais cela se fait en "dur"
la solution la plus simple est effectivement de déclarer un array , de récupérer l'adresse de base et de calculer l'adresse de la cellule.

il est peut être aussi possible dans l'exemple que tu donnes de récupérer l'adresse de la premiere variable et de calculer l'adresse des suivantes si elle sont déclarer à la suite (il est vraissemblable que le compilateur fasse de même.(a vérifier).

salutations 
JLEN

florenth · Answer

Salut !
C'est possible, mais uniquement sous deux conditions :
- les champs dont tu veux avoir accès doivent être des propriétés publiées d'une classe.
- La classe doit descendre de TPersistent ou être compilée avec la directive {$M+}.

Dans ce cas, tu peux utiliser les RTTI (cf Google) pour lire et modifier les propriétés.
Y'a même moyen d'invoquer des méthodes de la même manière mais c'est plus chaud d'un coup...

JulioDelphi · Answer

ca peut aider ? procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:=0 to ControlCount - 1 do if IsPublishedProp(Controls[i], 'Color') and PropIsType(Controls[i], 'Color', tkInteger) then SetOrdProp(Controls[i], 'Color', clRed); end;

f0xi · Answer

type
  TVariable = record
    Var : pointer;
    Name: string;
    // VarType : byte;
  end;

  TVariableList = class(TList)
  ... derivation pour TVariable ...
  end;

    

<hr size="2" width="100%" />

cs_MAURICIO · Answer

Merci pour vos réponses, 
je vais chercher du coté des RTTI qui semble ce que je cherche ...
A+

cs_rt15 · Answer

Salut,

Comme expliqué sur ce site en long et en large, accèder aux variables par leur noms à l'exécution, ça n'est pas bien.

Nan parce que sinon, ça ferait pas sérieux de dire que Lazarus fait du code lent, et les dev C vont encore se foutre de nous.

florenth · Answer

Ce qui est mal, c'est d'abuser de techniques dont on sait qu'elles consomment pas mal de temps alors qu'il y a plus simple et plus rapide.

Mais les connaître ne fait pas de mal... bien le contraire, ça peut sauver !

Accès à la valeur d'une variable par son nom dans une string

8 réponses

Votre réponse

Discussions similaires