Discussion :

[roland34]

bonjour à tous et joyeux noel

mon titre n'est certainement pas très clair

j'ai une form avec 100 panel dessus.

je voudrais initialiser le caption de mes panel mais plutot que d'écrire

panel0.caption:=0;
panel1.caption:=1;
....

je voudrais faire une boucle du style

for i:=0 to 99 do
begin
panel +i.caption:= i
end

une idée de la syntaxe à utiliser?

merci

[BuzzLeclaire]

Bonjour roland, et joyeux noël à tous.

Je te donne une piste

Code :

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

1
2
3
4
5
6
7
For n := Self.ComponentCount-1 downto 0 do
Begin
  if (Components[n] is Tpanel) then
  begin
     (Components[n] as Tpanel).Caption := Inttostr(n);
  end;
end;

Il faut évidement réfléchir à la manière où tu va les nommer pour être sur de les parcourir dans le bonne ordre....


Autre Piste :

Code :

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

1
2
3
 
for  i := 1 to 99 do
  TPanel(FindComponent('Panel'+IntToStr(i))).Caption := 'Text'+IntToStr(i);

[Paul TOTH]

à mon avis 100 panel sur une fiche est une mauvaise idée

ensuite si tu veux vraiment 100 panels, tu les crées dans le OnCreate de la fiche et non dans l'IDE et tu en profites pour constituer un "array [0..99] of TPanel".

[roland34]

Merci de ces reponses rapides meme le jour de noel !!
Le findcomponent me va tres bien

Roland