Page 1 sur 1

Concatenation?

Publié : mar. 28/août/2012 15:20
par microdevweb
Bonjour,

Existe t'il un méthode pour faire appel à une variable de façon dynamique

voici une exemple ou je suis obligé de faire comme ceci

Code : Tout sélectionner

For N=0 To 6
        x2+(gLargeur_Case*N)
        Select N
          Case 0
            Num$=Str(Tirages()\Tir1)
          Case 1
            Num$=Str(Tirages()\Tir2)
          Case 2
            Num$=Str(Tirages()\Tir3)
          Case 3
            Num$=Str(Tirages()\Tir4)
          Case 4
            Num$=Str(Tirages()\Tir5)
          Case 5
            Num$=Str(Tirages()\Tir6)
          Case 6
            Num$=Str(Tirages()\TirC)
        EndSelect
Next
J'aurais préféré faire du genre

Code : Tout sélectionner

For N=0 To 6
    x2+(gLargeur_Case*N)
    Num$=Str(Tirages()\Tir'N')
Next
J'espère que je suis asse clair dans ma question

Merci d'avance

Re: Concatenation?

Publié : mar. 28/août/2012 15:59
par falsam
Bonjour microdevweb.
J'ai déjà posé cette question et la réponse à été non.

Re: Concatenation?

Publié : mar. 28/août/2012 16:07
par microdevweb
Merci pour ta réponse et je trouve cela bien dommage.

Re: Concatenation?

Publié : mar. 28/août/2012 16:08
par Fred
Dans ton cas, tu peux utiliser un tableau: Tirages()\Tir[x]

Re: Concatenation?

Publié : mar. 28/août/2012 16:17
par falsam

Code : Tout sélectionner

Structure Tirage
  Tir.i [7]  
EndStructure

NewList Tirages.tirage()

;Alimente le tirage avec n'importe quoi
AddElement(Tirages())
For N=1 To 6
  Tirages()\Tir[N]=100*N
Next


For N=1 To 6
  Num$=Str(Tirages()\Tir[N])
  Debug Num$
Next

Re: Concatenation?

Publié : mar. 28/août/2012 17:21
par microdevweb
Oui c'est vrai que ce n'est pas bête. Comme solution dans certains cas