Bonjour,

Je développe un logiciel avec Delphi 2006, sous WinXP.

J'ai plus de 350 Labels différents qui sont tous nommés Label_Numero. Le problème c'est qu'à certains moments je dois les vider.

Je pourrais donc faire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label_1.Caption := '';
  Label_2.Caption := '';
  Label_3.Caption := '';
  ...
  Label_348.Caption := '';
  Label_349.Caption := '';
  Label_350.Caption := '';
end;
Mais cela n'est pas ce qu'il y a de plus pratique ... je voudrais donc créer une Procedure qui viderait le label.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Procedure TForm1.Non_Selectionne(Numero: string);
var
  Label_Universel : TLabel;
 
begin
  Label_Universel.Name := 'Label_' + Numero;
  Label_Universel.Caption := '';
 
end;
Malheureusement, cette Procedure n'efface pas les informations des labels ...

D'avance merci pour vos réponses.