Discussion :

[jean sami]

bonjour à tous
j'ai une petite question
comment faire "edit i"
par exemple si j'ai une variable i et j'ai une boucle
for i:=1 to 10 do
edit i.text:=.......
je sais que cette ecriture ne marche pas !!
mais est ce qu'il est possible de trouver une ecriture correcte proche de celle-ci
et merci d'avance

[peter27x]

showmessage(intToStr(i)); dans ta boucle affichera la valeur de i à chaque passage.

Si c'est bien ce que tu veux faire...

[jean sami]

merci pour ta reponse
mais je ne veux pas faire une affichage de message
je voudrais que le "edit" contient une nouvelle valeur
ce qu'il m'intersse est l'indice de "edit" c a d ,, au lieu d'ecrire
edit1.text:=..........
edit2.text:=........
............

j'ecris
for i:=1 to 10 do
edit[i].text:=............

[andreditdd]

Bonjour,

Non testé mais je pense que ça devrait fonctionner:

Code :

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

1
2
3
4
5
for I := 1 to 5 do
    begin
        (Form1.FindComponent('Edit' + IntToStr(I)) as
            TEdit).Text := 'Texte';
    end;

André

[jean sami]

ça marche bien
merci infiniment

[andreditdd]

Alors ???

André

[Paul TOTH]

ça marche bien
merci infiniment

si tu veux en faire un usage régulier tu peux alimenter un tableau sur le OnCreate de la fiche

Code :

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

1
2
3
4
 
  SetLength(Edits, 2); // Edits : array of TEdit
  Edits[0] : = Edit1; // ou par un FindComponent
  Edits[1] : = Edit2;