Comment initialiser une liste de composants avec une boucle ?

Je suis débutant, hé oui, il faut bien commencer un jour.
J'ai une interface utilisateur avec plusieurs champs TEdit nommés Ed1,Ed2,...
Ma question :?:
Est-il possible de réinitialiser tous ces champs via une boucle ??

Code:

---

1 2 3 4 5

Boucle du style : Procedure TForm1.Bt1Click(Sender: TObject); begin For i := 1 to 5 do Ed(i).text.clear; end;

---

J'espère que vous pourrez me proposer une solution qui fonctionne.

Merci à tous
_________________
• Balises [CODE] rajoutées par Sub0

Regarde là :

http://www.developpez.net/forums/viewtopic.php?t=319628

:wink:

:lol:

Salut et bienvenue dans les forums de Developpez.com ! ;)

Citation:

---

IMPORTANT :
• Servez-vous de la touche http://sub0.developpez.com/tf1.png
• Merci de chercher un peu avant de poster dans le forum...
• Chercher une réponse dans la FAQ Delphi
• Chercher une réponse dans la page sources Delphi
• Ne poster qu'en dernier recours!
• Google.fr est ton ami!
• Merci d'utiliser les balises [CODE] dans vos posts!
• Merci de choisir un titre clair et explicite!
• Le multipost est interdit! Choisissez le forum approprié.
• Merci de ne pas créer un nouveau topic pour chaque question d'un même sujet!
• Le style SMS est interdit.
• Merci de lire et de respecter les règles du forum!
• Ajouter le tag [résolu]!

---

ps : Je donne systhématiquement ce message aux nouveaux venus.
La solution que je te propose est de lister tous les objets de Form1 et de trier que les TEdits.
Là, suffira de les remettre à zéro :

Code:

---

1 2 3 4 5 6 7

Var i: Integer; Begin For i := 0 To Form1.ComponentCount - 1 Do If (Form1.Components[i] Is TEdit) Then TEdit(Form1.Components[i]).Clear; End;

---

Tu peux aussi trier les objets en utilisant leur nom si tu connais exactement le nombre d'objets :

Code:

---

1 2 3 4 5 6

Var i: Integer; Begin For i := 1 To 5 Do TEdit(Form1.FindComponent('Edit' + IntTostr(i))).Clear; End;

---

http://sub0.developpez.com/tag.png

:P
Merci à tous du coup de main, des liens et des conseils.

A+

pour gagner du temps, si tu as beaucoup de traitements à faire sur des ensembles de composants, tu peux aussi les rassembler ou les recenser dans un tableau :

Code:

---

1 2 3 4 5 6 7

type TTabEdit = array[1..5] of TEdit ; var TabEdit : TTabEdit; begin TabEdit[1] := Edit1; // ... for i := 1 to 5 do TabEdit[i].Clear; end;

---