salut a tous,

J'ai dans une form 60 Tedit reparti en 3 x20 lignes

Toutes les TEdit d'une meme colone comporte le meme nom a un N° pres

1ere Col

Billet1
Billet2
Billet3......

2eme Col

Cout1
Cout2
Cout3.......

3eme col

somme1
somme2
somme3


Suis je obliger de recopier 20 fois ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure TFiche2.Montant1Change(Sender: TObject);
begin
 Somme1.Text := FloattoStr(strtoFloat(Montant1.Text)*0.6);
 
end;
Ou bien est ce qu'en bouclant ça fonctionerai ??

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
procedure TFiche2.Montant1Change(Sender: TObject);
Var i:integer;
begin
 For i=1 to 20 do 
 Somme(i).Text := FloattoStr(strtoFloat(Montant(i).Text)*0.6);
 
end;
enfin un truc dans ce style


merci pour votre aide