Recuperation de variable dans une procedure.

[GallyHC]

Bonjour tout le monde,

J'ai un problème avec les Procedures, je m'explique. Je declare ma Procedure, jusque la tout va bien. Quand je fais appel a ma procedure il faudrais que les variables *MaxBits.l, *Minbits.l donne le resultat au variable de l'appel de la fontion. En gros voila un exemple.

Code : Tout sélectionner

Procedure.l Create_Codes(Array tree.CodesType(1), Array Lenghts.l(1), NumCodes.l, *MaxBits.l, *Minbits.l)
;
*MaxBits = 10
*Minbits = 1

EndProcedure

Create_Codes(tree.CodesType(),Lenghts.l(1),MaxLLenght, MinLLenght) 

; MaxLLenght = 0 devrait etre 10
; MinLLenght = 0 devrait etre 1

Merci d'avance de votre aide,
GallyHC

[Ar-S]

Sans avoir testé peut être

Code : Tout sélectionner

Global *MaxBits.l, *Minbits.l

Procedure.l Create_Codes(Array tree.CodesType(1), Array Lenghts.l(1), NumCodes.l, *MaxBits, *Minbits) 
  ; 
  *MaxBits = 10 
  *Minbits = 1 
  
  ProcedureReturn  *MaxBits
  ProcedureReturn  *Minbits
EndProcedure

[GallyHC]

Bonjour,

J'avais deja testé cela, mais j'ai constate que la fonction est quitter des le premier "ProcedureReturn" et je ne sais pas comment je peux faire alors.

Cordialement,
GallyHC

[nico]

Code : Tout sélectionner

Procedure.l Create_Codes(Array tree.CodesType(1), Array Lenghts.l(1), NumCodes.l, *MaxBits.long, *Minbits.long)
;
*MaxBits\l = 10
*Minbits\l = 1

EndProcedure

Create_Codes(tree.CodesType(),Lenghts.l(1),@MaxLLenght, @MinLLenght)

; MaxLLenght =  10
; MinLLenght =  1

[GallyHC]

BOnjour nico,

Merci c'est bien ce que je recherche a faire.

Amitié,
GallyHC

[lionel_om]

Y'a le mot "Shared" aussi...