Discussion :

[FranT]

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 :

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

1
2
3
4
5
6
7
8
 
TForm1.Button1Click (Sender: TObject);
begin
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
    // etc...
end;

Merci.

[remixtech]

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

[Seb]

Salut,

Fais un tour du côté de ComponentCount :

Code :

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

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.