The debugger 15.004 don't work with array type.
With the following code:
in debugging (wrong):
AnimationG.AnimationData[0].NameSubAnim$=""
AnimationG.AnimationData[1].NameSubAnim$=""
AnimationG.AnimationData[1].TimeDraw[0]=2
AnimationG.AnimationData[1].TimeDraw[1]=3
while must be (exact):
AnimationG.AnimationData[0].NameSubAnim$="Animation G[0]"
AnimationG.AnimationData[1].NameSubAnim$="Animation G[1]"
AnimationG.AnimationData[1].TimeDraw[0]=4
AnimationG.AnimationData[1].TimeDraw[1]=5
Any idea?
TYPE TAnimationData
NameSubAnim$
TimeDraw%[2]
ENDTYPE
TYPE TAnimationList
AnimationData[2] AS TAnimationData
FUNCTION GetAnim% : pos%,name$,par1%,par2%
self.AnimationData[pos].NameSubAnim$= name$
self.AnimationData[pos].TimeDraw[0]= par1
self.AnimationData[pos].TimeDraw[1]= par2
ENDFUNCTION
ENDTYPE
GLOBAL AnimationG AS TAnimationList
AnimationG.GetAnim(0,"Animation G[0]",2,3)
AnimationG.GetAnim(1,"Animation G[1]",4,5)
DEBUG AnimationG.AnimationData[0].NameSubAnim$+","+AnimationG.AnimationData[0].TimeDraw[0]+","+AnimationG.AnimationData[0].TimeDraw[1]+"\n"
DEBUG AnimationG.AnimationData[1].NameSubAnim$+","+AnimationG.AnimationData[1].TimeDraw[0]+","+AnimationG.AnimationData[1].TimeDraw[1]+"\n"
END