[Syntaxe] Action simultanée sur plusieurs élements

Bonsoir à tous.
Voilà, supposons que j'ai une fiche avec plusieurs Edit, MaskEdit et autres éléments de saisie. Y a-t-il un moyen de faire un CLEAR sur chacun de ces éléments avec quelque chose de plus élégant que:

Code:

---

1 2 3 4 5 6 7 8

TForm1.Button1Click (Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; // etc... end;

---

Merci. :)

Ben y'a rien de pas clair , c'est clean ...

Salut,

Fais un tour du côté de ComponentCount :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button20Click(Sender: TObject); var i : integer; begin for i := 0 to componentcount - 1 do begin if (Components[I] is TEdit) then (Components[I] As TEdit).Clear; // etc end; end;

---

A+,

Seb.