Recuperer le nom d'une variable dans une variable String

Version imprimable

17/10/2009, 12h09
aliwassem

Recuperer le nom d'une variable dans une variable String
:salut:

j'ai une variable avec le nom MaVar de type Byte et une autre variable avec le nom NouvelleVar de type String comment je peux recuperer le nom de la 1ere variable comme string ca veut dire le resultat doit etre
Code:

1 2 NouvelleVar := "MaVar";
:merci: d'avance
17/10/2009, 12h34
Gilbert Geyer

Salut,

Citation:

j'ai une variable avec le nom MaVar de type Byte et une autre variable avec le nom NouvelleVar de type String comment je peux recuperer le nom de la 1ere variable comme string ca veut dire le resultat doit etre

... pas bien clair.

Mais tu peux récupérer dans NouvelleVar de type String la valeur de MaVar de type Byte avec NouvelleVar:=intToStr(MaVar);

A+. :D
17/10/2009, 14h53
edam
Citation:
Envoyé par aliwassem

:salut:

j'ai une variable avec le nom MaVar de type Byte et une autre variable avec le nom NouvelleVar de type String comment je peux recuperer le nom de la 1ere variable comme string ca veut dire le resultat doit etre

Code:

1 2 NouvelleVar := "MaVar";

:merci: d'avance
:koi: :koi: :koi:
pourquoi faire? tu peut exprimer ton besoin exactement? :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
  MaVar: Byte;
  NouvelleVar: string;
 
function GetVarName(var variable): string;
begin
  if @variable = @MaVar then
   Result := 'MaVar'
  else
  Result := 'unknonw';
end;
 
begin
  NouvelleVar := GetVarName(MaVar);
end.

19/10/2009, 10h17
Gilbert Geyer

Bonjour,

Si c'est vraiment le nom de maVar que Aliwassem veut recupérer dans NouvelleVar le code de Paul Thot marche effectivement mais je me demande vraiment à quoi ça va servir (???) puisque le nom de maVar est connu par avance : mystère et boule de gomme.

A+. :D
19/10/2009, 13h12
Paul TOTH

Citation:

Envoyé par Gilbert Geyer

Bonjour,

Si c'est vraiment le nom de maVar que Aliwassem veut recupérer dans NouvelleVar le code de Paul Thot marche effectivement mais je me demande vraiment à quoi ça va servir (???) puisque le nom de maVar est connu par avance : mystère et boule de gomme.

A+. :D

oui et non...mais cette fonction prend tout son intéret quand on a également la fonction inverse (un pointeur sur la variable d'après son nom)...c'est ce qu'on a avec le RTTI sur une classe persistante.
19/10/2009, 14h58
Gilbert Geyer

Re-bonjour,

Citation:

Envoyé par Paul TOTH :
...mais cette fonction prend tout son intéret quand on a également la fonction inverse (un pointeur sur la variable d'après son nom

... oui mais pour faire quoi par exemple ???

A+. :D

:salut:

d'abord merci de vos reponses.

si la fonction qui recupere le nom de la variable est comme le suivant:
Code:

1 2 3 4 5 function GetVarName(variable :Byte): string; begin Result := ??????; end;
et si j'utilise cette fonction comme suivant
Code:

1 2 3 4 5 NouvelleVar := GetVarName(MaVar); // le resultat doit etre = "MaVar" NouvelleVar := GetVarName(UneVar); // le resultat doit etre = "UneVar" NouvelleVar := GetVarName(Rep); // le resultat doit etre = "Rep" NouvelleVar := GetVarName(seul); // le resultat doit etre = "seul"
:merci: d'avance

20/10/2009, 20h39
Paul TOTH
ça ne fonctionne pas car tu ne fais pas référence à la variable, c'est juste une valeur et tu pourrais très bien écrire :
Code:

1 2 3 4 5 6 begin GetVarName(i + 1); GetVarName(1 + 2); GetVarName(123); end;
21/10/2009, 18h06
anapurna

salut

pour eviter le probleme de passer des constante, il suffit d'y ajouter le mot cle var dans le passage de paramettre mais cela ne resoud en rien sont probleme

par contre ce qu'il veut c'est efffectivement pouvoir utiliser une variable
plutot qu'une autre en ne donnant que sont non
comme on peut le faire pour retrouver un champs dans une base de donnéepar la methode

Code:

fieldByName

dans son cas il faut qu'il associe un nom a une variable
si je me souvient bien il existe un objet de type JSon qui pourrait peut remplacer avantageusement les fameuse variables

regarde chez progdigy

@+ Phil
21/10/2009, 21h22
Montor

ça existe sur avec langage heureusement pas sur delphi c'est uniquement utile pour le debug

Citation:

dans son cas il faut qu'il associe un nom a une variable
si je me souvient bien il existe un objet de type JSon qui pourrait peut remplacer avantageusement les fameuse variables

le code json nécessite que le compilateur soit toujours présent
23/10/2009, 12h38
anapurna

salut

Citation:

Envoyé par Montor

ça existe sur avec langage heureusement pas sur delphi c'est uniquement utile pour le debug

le code json nécessite que le compilateur soit toujours présent

justement non, as tu bien regarder le lien que je fournis ?

c'est bien du delphi le truc c'est qu'il "sérialise" les donnée
afin de garder en mémoire les noms
les variable de type scalaire (integer,byte,char,...) n'existe plus il faut penser purement objet

@+ Phil