Используй рекурсию для добавления в массив
правка: Платон уже опередил
тогда код:
Dim mass(1000)
Global x_mass
Function AddChid(ent)
For i=1 to CountChildren(ent)
child=GetCild(ent,i)
If child<>0
mass(x_mass)=child
x_mass=x_mass+1
If CountChildren(child)
AddChid(child)
EndIf
EndIf
Next
End Function
|