Discussion :

[stefano]

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

[smyley]

Sujet souvant traité mais bon
http://www.developpez.net/forums/vie...335&highlight=

enfin, un ptit code qui devrait t'interesser :

Code :

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

1
2
3
 
For i=1 to 20 do
 TEdit(FindComponent('Somme' + IntToStr(i))).Text := FloattoStr(strtoFloat(TEdit(FindComponent('Montant' + IntToStr(i))).Text)*0.6);

[stefano]

Sujet souvant traité mais bon
http://www.developpez.net/forums/vie...335&highlight=

Excuse moi, je n'ai pas trouver dans le forum. J'ai surement mal effectué la recherche ou utiliser une mauvaise clé de recherche.
j'ai utiliser
For i:=1 to
Boucle
var i
et je n'ai pas trouver de reponse pouvant m'aider a me donner une voie de reponse.
J'ai surment passé a cote tous mes excuse encore une fois et merci pour ton aide

le code que tu me propose ne semble pas aller avec ce que je voudrais faire. J'ai du mal m'exprimer desoler

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TFiche2.Montant3Change(Sender: TObject);
begin
  Somme3.Text := FloattoStr(strtoFloat(Montant3.Text)*0.6);
 
end;
 
procedure TFiche2.Montant4Change(Sender: TObject);
begin
  Somme4.Text := FloattoStr(strtoFloat(Montant4.Text)*0.6);
 
end;
 
procedure TFiche2.Montant5Change(Sender: TObject);
begin
Somme5.Text := FloattoStr(strtoFloat(Montant5.Text)*0.6);
 
end;

C'est ce style de code que j'aimerai bouclé.

merci

[OutOfRange]

Salut

Pourquoi ne pas t'inspirer du code de smyley en te servant de la propriété tag de chaque TEdit, du style...

Code :

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

TEdit(FindComponent('Somme' + inttostr((sender as TEdit).tag))).Text := FloattoStr(strtoFloat(TEdit(FindComponent('Montant' + IntToStr(i))).Text)*0.6);

Je n'ai pas testé mais ça doit le faire

Bonne prog

[smyley]

le code que tu me propose ne semble pas aller avec ce que je voudrais faire. J'ai du mal m'exprimer desoler

mais pourtant

Ou bien est ce qu'en bouclant ça fonctionerai ??

J'ai répondu a cette question au départ moi si un boucle n'est pas la réponse à une demande de boucle ... j'suis perdu !

[stefano]

Si c'est bien une demande de "boucle" mais pour des evenements similaire , concernant des TEdit ayant le meme nom a une variable numerique pres.

Cf le code de mon 2eme post

[smyley]

ah ok, non faire une boucle ça va pas marcher, utilise la méthodes de OutOfRange