Discussion :

[EricSid]

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 :

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

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

[Lung]

Regarde là :

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

[/dev/null]

[Sub0]

Salut et bienvenue dans les forums de Developpez.com !

IMPORTANT :
• Servez-vous de la touche
• 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 :

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

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 :

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

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

[EricSid]

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

A+

[tourlourou]

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 :

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

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;