Afectation des variables dans une boucle

Bonjour

J'aimerais savoir comment Afectation des variables dans une boucle.

Exemple : Je lis une table de 8 enregistrement, je récupére deux colone de chaque ligne la table, une sert de nom de la variable et l'autre sert le contenu de variable dans la boucle.

Code:

---

1 2 3 4 5 6 7 8 9 10

With Table1 do begin close; open; first; While not EOF do begin Table1['nom_champ']+'.Text' := Table1['contenu_champ']; Showmessage(Table1['nom_champ']+'.Text' ); next; end; end;

---

Entre en boucle 1ere fois
resultat attendue
password='jeune'
2ere fois
mois ='11'
Ect.....
A la place du resultat attendue une erreur

Merci de lire les règles du forum ainsi que l'aide aux nouveaux. Entoure ton code de balises [ code ], pour qu'il soit lisible. Et tu dis "à la place erreur" : quelle erreur ? Où ? À la compilation ou à l'exécution ?

Tu as de la chance, pour une fois, j'ai sous la main ma boule de cristal. Et j'ai vu dedans que tu avais une erreur de compilation sur la ligne

Code:

---

Table1['nom_champ']+'.Text' := Table1['contenu_champ'];

---

De ce genre :

Citation:

---

La partie gauche n'est pas affectable

---

Comme Table1['nom_champ']+'.Text' n'est pas une variable (c'est une expression de type chaîne), il est évidemment impossible de lui assigner quelque chose.

Tu dois d'abord récupérer le composant dont la propriété Name est égale à cette expression.
:fleche: Comment trouver un composant en connaissant son nom ?

Ensuite il ne te reste plus qu'à le transtyper en TEdit (oui ma boule de cristal a même pu me dire que tu travaillais sur un TEdit), et à modifier sa propriété Text.

A la compilation j'ai une erreur [ Violation d'acces a l'adresse 00420FFC dans le module ProgPyr.exe. Lecture de l'adresse 00000010.

Citation:

---

Envoyé par Yoni Lebene

Code:

---

Table1['nom_champ']+'.Text' := Table1['contenu_champ'];

---

---

???

Si je lis bien tu tentes de concaténer une propriété ici ? C'est possible ça ?

Est-ce que Table1 est construit ? Si tu ajoutes ShowMessage(BoolToStr(Assigned(Table1))) au début de la procédure ça donne quoi ?