Discussion :

[manubrard]

[WIN32][D2005][LANGAGE] Comment afficher une valeur contenue dans une variable ?

Bonjour à toute la communauté de "Developez.com",

Je suis un jeune développeur Delphi et n'ayant, hélas, pas suffisamment d'expérience, je suis bloqué par un problème assez agaçant. Dans mon programme, j'ai une boucle "POUR" comme ceci :

Code :

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

1
2
3
4
5
6
7
FOR i:=2 to 31 do
        begin
          Cellule:=MaFeuille.getCellByPosition(0,i);
          NomChamps:='Edit'+i;
          Unit3.Form_Menu_Modif_Tarif_Exapaq.{NomChamps}.Text:=Cellule.value
        end
;

Mon soucis est de faire apparaitre dans cette ligne :

Code :

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

Unit3.Form_Menu_Modif_Tarif_Exapaq.{NomChamps}.Text:=Cellule.value

la valeur contenu dans {NomChamps} pour que mon code soit interpreté de cette manière:

Code :

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

Unit3.Form_Menu_Modif_Tarif_Exapaq.{NomChamps}.Text:=Cellule.value

=

Code :

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

Unit3.Form_Menu_Modif_Tarif_Exapaq.Edit2.Text:=Cellule.value

Je remercie d'avance les personnes qui prendront la peine de m'aider et j'encourage les administrateurs du site à continuer leurs efforts qui nous sont si précieux, à nous, les développeurs (et aux autres aussi...)

Manuel.

[portu]

Tout dépend du type de la VAR Cellule ! Si elle est de type Integer

Code :

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

1
2
 
  Unit3.Form_Menu_Modif_Tarif_Exapaq.{NomChamps}.Text:=IntToStr(Cellule);

Et tu travailles avec la VCL ou en WindowsForm ?

[manubrard]

Tout d'abord, merci de me répondre, portu.

Tout dépend du type de la VAR Cellule ! Si elle est de type Integer

Je pense que j'ai mal formulé ma requête. En fait, dans cette ligne:

Code :

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

Unit3.Form_Menu_Modif_Tarif_Exapaq.{NomChamps}.Text:=Cellule.value

j'ai écrit {NomChamps} mais c'est parce que je cherche le formalisme correcte.
Je souhaiterais que Delphi interprète :

Code :

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

Unit3.Form_Menu_Modif_Tarif_Exapaq.{NomChamps}.Text:=Cellule.value

comme si j'avais écrit :

Code :

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

Unit3.Form_Menu_Modif_Tarif_Exapaq.Edit2.Text:=Cellule.value

Donc faut-il que j'utilise des crochets, des accolades, des parenthèses,...pour que le programme se serve de ce que contient la variable {Nom champs} qui est de type "Chaine" ?

Et tu travailles avec la VCL ou en WindowsForm ?

Je travaille en WindowsForm, désolé de ne pas l'avoir précisé.

[portu]

Ha désolé !
En VCL, je t'aurais proposé ceci

Code :

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

1
2
3
 
 
TEdit(Form_Menu_Modif_Tarif_Exapaq.FindComponent(Nom_De_La_Var)).Text:=Cellule.value;

En .NET , j'en ai aucune idée.

Demande peut être à un admin de déplacer ce post dans un forum plus approprié.

A+ et bonne prog.

[qi130]

Il faut utiliser la fonction FindComponent:

Code :

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

1
2
3
...
Unit3.Form_Menu_Modif_Tarif_Exapaq.FindComponent('Edit'+IntToStr(i)).Text:=Cellule.value;
...

[manubrard]

Je vous remercie tous les deux de m'avoir aidé à résoudre mon problème.

Et continuez comme ça, vous êtes géniaux !!!!!!!!!

A bientôt j'espère!!