03-10-2005, 11:46 AM
You forgot to allocate model_type ptr
Code:
Dim Model(1 to 10) as Model_Type ptr
for i = 1 to 10
model(i) = allocate(Len(Model_type))
next i