Discussion :

[Zoun]

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 :

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

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 :

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

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 et d'éviter le multipost [/edit]

[anapurna]

salut

premier conseil met ton code entre balise code

sinon pour ce que tu cherche regarde du cote de findcompoment

@+ Phil

[e-ric]

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

cdlt

e-ric

[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 :

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

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;

[mayloshi]

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 :

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

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

[Zoun]

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