Shared

[pat]

Bonjour à tous,
Je n'ai pas bien compris avec exactitude comment fonctionne Shared.
Quelqu'un pourrait-il me donner plus de détails ?
Merci à lui.

[comtois]

exemple issu de la doc (à peine modifié). Contrairement à Global, avec Shared tu choisis quelle procédure est autorisée à modifier une variable

Code : Tout sélectionner

a = 10
  
  Procedure Change()
    Shared a
    a = 20 
  EndProcedure 
  
  Procedure Change2()
    a = 30 
  EndProcedure 
  
  Change()
  Debug a   ; Will print 20, as the variable has been shared.
  Change2()
  Debug a   ; Will print 20, as the variable has been shared.

[pat]

Merci pour la réponse et le code.