Procedure et NewList
Publié : mer. 17/janv./2007 16:31
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
