Discussion :

[F1SFY]

Bonjour,

J'ai plusieurs 'label' dans une form et je voudrais les implémenter dans une boucle automatiquement du style :

Code :

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

1
2
3
4
5
 
for i:= 1 to 10 do
begin
   form1.babel(i).caption:='eeee'
end;

quelqu'un a t'il une idée ?

Merci Pascal

[neilbgr]

Réflex de VBiste çà, me trompe-je ?

Si tu veux "tourner" sur TOUS les labels de la form, tu peux faire ceci :

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  vIndice: Integer;
  vLabel: TLabel;
begin
  for vIndice := 0 to ComponentCount-1 do
    if Components[vIndice] is TLabel then
      begin
        vLabel := TLabel(Components[vIndice]);
        //...
      end;
end;

Si tu veux tourner sur des labels nommés avec un prefix, tu peux faire ceci :

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  vIndice: Integer;
  vLabel: TLabel;
begin
  for vIndice := 0 to ComponentCount-1 do
    if (Components[vIndice] is TLabel) and (Pos('prefix', Components[vIndice].Name)=1) then
      begin
        vLabel := TLabel(Components[vIndice]);
        //...
      end;
end;

[F1SFY]

Bonjour,

Merci beaucoup pour les exemples. Je pense pouvoir régler mon probleme. Toutefois je n'arrive pas à faire fonctionner le 2° exemple.

Pour info je faisais du clipper (sous dos) avant de passer à delphi.

Cordialement

Pascal