Code : Tout sélectionner
Macro CountArray(array)
PeekL(@array-8)
EndMacro
Structure TEST
a.s
b.s
c.l
EndStructure
Dim tableau.TEST(10)
Debug CountArray(tableau())
ReDim tableau.TEST(100)
Debug CountArray(tableau())
Code : Tout sélectionner
Macro CountArray(array)
PeekL(@array-8)
EndMacro
Structure TEST
a.s
b.s
c.l
EndStructure
Dim tableau.TEST(10)
Debug CountArray(tableau())
ReDim tableau.TEST(100)
Debug CountArray(tableau())