Tableau de procedure à procedure

[Ar-S]

Bonjour,

J'ai besoin d'un petit rafraichissement
Comment récupère-t-on un tableau d'une procédure à une autre ?
Je n'arrive pas à synthaxer "array" comme il faut.
Merci

ex :

Code : Tout sélectionner

Global x = 2, y = 5


Procedure Tab()
    
    Dim MonTab (5,5)
    
    For j = 0 To y
        For i = 0 To x
            MonTab (i,j) = count
            count+1
        Next i
    Next j
    
    ;;; test
    
    For j = 0 To y
        For i = 0 To x
            Debug "i "+Str(i)+ " / j"+Str(j) + " " +MonTab(i,j)        
        Next i
    Next j
    
    
EndProcedure


Procedure Retry ()
    ; Je veux mon résultat aussi accessible ici
     For j = 0 To y
        For i = 0 To x
            Debug "i "+Str(i)+ " / j"+Str(j) + " " +MonTab(i,j)        
        Next i
    Next j
    
EndProcedure

; La ça fonctionne
tab()

; La non
Retry()

[Micoute]

Code : Tout sélectionner

Procedure Tab()
    
    Global Dim MonTab (5,5)
    
    For j = 0 To y
        For i = 0 To x
            MonTab (i,j) = count
            count+1
        Next i
    Next j
    
    ;;; test
    
    For j = 0 To y
        For i = 0 To x
            Debug "i "+Str(i)+ " / j"+Str(j) + " " +MonTab(i,j)        
        Next i
    Next j
    
    
EndProcedure
[\code-pb]

[Ar-S]

Global...
Merci Micoute.. je fatigue

[Micoute]

Bonjour Ar-s, ça arrive à n'importe qui de fatiguer, c'est très excusable.

[Mesa]

Pas besoin de global:

Code : Tout sélectionner

Global x = 2, y = 5


Procedure Tab(Array ttab(2)); Attention, ici le tableau comporte 2 dimensions
	
	Debug "Taille de la dimension 1 :"
	Debug ArraySize(ttab(), 1)
	Debug "Taille de la dimension 2 :"
	Debug ArraySize(ttab(), 2)
	Debug "****************************"
	
	For j = 0 To y
		For i = 0 To x
			ttab (i,j) = count
			count+1
		Next i
	Next j
	
	;;; test
	
	For j = 0 To y
		For i = 0 To x
			Debug "i "+Str(i)+ " / j"+Str(j) + " " +ttab(i,j)        
		Next i
	Next j
	
	
EndProcedure


Procedure Retry (Array ttab(2)); Attention, ici le tableau comporte 2 dimensions
	
	; Je veux mon résultat aussi accessible ici
	For j = 0 To y
		For i = 0 To x
			Debug "i "+Str(i)+ " / j"+Str(j) + " " +ttab(i,j)        
		Next i
	Next j
	
EndProcedure

Dim tabtab(x,y)

; Là ça fonctionne
tab(tabtab())

Debug "===================="

; Là aussi
Retry(tabtab())

M.

[Ar-S]

Merci Mesa. C'est l'utilisation des array que je cherchais. ça n'est pas super intuitif en PB. (peut être compléter la doc avec cet exemple simple).