Discussion :

[Yoni Lebene]

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 :

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

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

[sjrd]

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 :

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

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

De ce genre :

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.
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.

[Yoni Lebene]

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

[slimjoe]

Code :

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

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 ?