Comment faire pour avoir une boucle r[i].Visible à la place de r1.visible, r2.visible

Bonjour,
Je fais un petit jeu et j'ai besoin de votre aide pour rassembler des dizaines de lignes de code en une seule.
Pour l'instant j'ai ce groupe plus de 20 fois (autant que de TShape)

Code:

---

1 2 3 4

Begin r4.Visible := false; updatevar('+'); end;

---

Et j'aimerais que ça se transforme en :
updatevar('+',4)

Ma fonction updatevar plus haut dans mon code ressemble à ça.

Comment puis-je utiliser le 2nd paramètre (chiffre qui dit quel TShape rendre visible) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

function updatevar(c:char,i:integer); Begin If c = '+' Then Begin r[i].Visible := true; //OU r+'i'.Visible := true; //OU autre solution ?? horiz := 1; vert := random(2); addpoint('p2') end end;

---

[edit Malatar]Merci de :tagcode: et d'éviter le multipost [/edit]

salut

premier conseil met ton code entre balise code

sinon pour ce que tu cherche regarde du cote de findcompoment

@+ Phil

Déclare un tableau où tu places les composants que tu souhaites indexer.

cdlt

e-ric

si j'ai bien compris tes composant r(nb) sont des TShape ?

si c'est ça tu dois pouvoir t'en sortir en faisant :

Code:

---

1 2 3 4 5 6 7 8 9 10

function updatevar(c:char,i:integer); Begin If c = '+' Then Begin TShape(Self.findComponent('r' + IntToStr(i))).Visible := true; horiz := 1; vert := random(2); addpoint('p2') end end;

---

;)

Citation:

---

Envoyé par Guile

si j'ai bien compris tes composant r(nb) sont des TShape ?

si c'est ça tu dois pouvoir t'en sortir en faisant :

Code:

---

1 2 3 4 5 6 7 8 9 10

function updatevar(c:char,i:integer); Begin If c = '+' Then Begin TShape(Self.findComponent('r' + IntToStr(i))).Visible := true; horiz := 1; vert := random(2); addpoint('p2') end end;

---

;)

---

De toute façon quel que soit le type (vu qu'il y a polymorphisme et chargement dynamique), tu peux carrement remplacer TShape par TCOntrol, comme ça quel que soit la classe, la propriete visible montre deja qu'il s'agit d'un TControl...

Bon, c'est pas tres important, mais...

findcomponent est vraiment pratique :D . Merci à tous pour cette suggestion. (Je dois bien dire qu'en programmation je débute donc votre aide m'a été précieuse).