Shared

Shared <variable> [,<variable>,...]

Shared permet de rendre une variable, un tableau ou une liste chaînée d'une procédure accessible depuis l'extérieur. Quand Shared est utilisé avec un tableau ou une liste chaînée, seul le nom suivi de '()' doit être spécifié.

Exemple: Avec une variable

  a = 10
  
  Procedure Change()
    Shared a
    a = 20 
  EndProcedure 
  

  Change()
  Debug a   ; Affichera 20, car la variable est partagée.

Exemple: Avec un tableau et une liste chaînée

  Dim Array(2)
  NewList List()
  AddElement(List())
  
  Procedure Change()
    Shared Array(), List()
    Array(0) = 1
    List() = 2
  EndProcedure 
  
  Change()
  Debug Array(0)  ; Affichera 1, car le tableau est partagé.
  Debug List()    ; Affichera 2, car la liste chaînée est partagée.