Procedure et NewList

[Progi1984]

Voilà, je voudrais savoir pourquoi ce code bugue... car je suis étonné que l'on ne puisse le faire !

Code : Tout sélectionner

  Procedure Init()
    NewList Test.l()
    Shared Test()
  EndProcedure
  Procedure List()
    Shared Test()
    AddElement(Test())
    Test() = 1
    AddElement(Test())
    Test() = 2
    ForEach Test()
      Debug "List - " + Str(Test())
    Next
  EndProcedure
  Procedure DebugList(c.l)
    Shared Test()
    AddElement(Test())
    Test() = c
    ForEach Test()
      Debug "DebugList - " + Str(Test())
    Next
 
  EndProcedure
  Init()
  List()
  DebugList(10)
  
  ForEach Test()
    Debug Test()
  Next

[Flype]

si tu utilise Shared il faut mettre ton NewList en dehors des procedures - dans le code principal.

Code : Tout sélectionner

NewList Test.l() 

Procedure Init() 
  Shared Test() 
EndProcedure 

Procedure List() 
  Shared Test() 
  AddElement(Test()) 
  Test() = 1 
  AddElement(Test()) 
  Test() = 2 
  ForEach Test() 
    Debug "List - " + Str(Test()) 
  Next 
EndProcedure 

Procedure DebugList(c.l) 
  Shared Test() 
  AddElement(Test()) 
  Test() = c 
  ForEach Test() 
    Debug "DebugList - " + Str(Test()) 
  Next 
EndProcedure 

Init() 
List() 

DebugList(10) 
  
ForEach Test() 
  Debug Test() 
Next

[Progi1984]

Merci beaucoup !

[brossden]

Alors qu'attends tu pour le faire ?