Discussion :

[Reitazorc]

Bonjour, je viens vers vous car j'ai un petit problème pour passer un tableau en argument d'une procédure.

J'ai par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
set tab(0) A
set tab(1) B
set tab(2) C
set tab(3) D
 
proc test {tab} {
     for {set i 0} {$i <= 3} {incr i} {
          puts $tab($i)
     }
}
test $tab

Et sa ne marche pas, j'ai un message d'erreur comme quoi "can't read "tab": variable is array"

J'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
set tab(0) A
set tab(1) B
set tab(2) C
set tab(3) D
 
proc test {tab} {
     upvar $tab tab2
     for {set i 0} {$i <= 3} {incr i} {
          puts $tab2($i)
     }
}
test $tab

Mais toujours rien.

Quelqu'un aurait une solution svp ?

Merci .

[Invité]

Bonjour,

Tu ne peux pas passer un tableau à une procédure juste par son nom. L'astuce consiste à passer le contenu du tableau en argument (avec [array get]) puis à reconstruire le tableau dans ta procédure (avec [array set]) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
set tab(0) A
set tab(1) B
set tab(2) C
set tab(3) D
 
proc test {tablist} {
     array set tab $tablist
     for {set i 0} {$i <= 3} {incr i} {
          puts $tab($i)
     }
}
 
test [array get tab]

[Reitazorc]

C'est parfait merci beaucoup !

[Invité]

De rien !

Il n'y a plus qu'à passer le sujet en [résolu].