a solution for fbcadm-macro arrays

FbCadCam community discussion

Moderators: kitty_webb, Ywsp, joanCruz03, yajra1219, Jayem, shela

Post Reply
owen
Site Admin
Posts: 642
Joined: Thu Apr 13, 2017 12:14 pm

a solution for fbcadm-macro arrays

Post by owen » Wed Aug 14, 2019 9:53 am

Code: Select all

type a
	b(any) as Integer
	declare sub rp(byval n as integer)
End Type

sub a.rp(byval n as integer)
	redim preserve b(n)
End Sub

redim c(0) as a
c(0).rp(10)
c(0).b(0)=1
print c(0).b(0)

redim preserve c(1)
c(1).rp(10)
c(1).b(0)=2
print c(1).b(0)

sleep

Post Reply