accès à un objet par programmation

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

Citation:

---

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

---

je voudrais faire une boucle du style

Citation:

---

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

---

une idée de la syntaxe à utiliser?

merci

Bonjour roland, et joyeux noël à tous.

Je te donne une piste

Code:

---

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.... :aie:


Autre Piste :

Code:

---

1 2 3

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

---

à 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".

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

Roland