Freeing up a linked list

[patljones]

I've set up a linked list of Class Modules and I'm trying to free them up but it doesn't seem to be working. The watch shows that currfield is pointing to the right thing but its still in the chain after I set currfield to Nothing.

Do While Not currfield Is Nothing
Set nextfield = currfield.pnext
Set currfield = Nothing
Set currfield = nextfield
Loop

Do I need to set it up as a doubly linked-list and work the other way down the list or if I just set the root node to Nothing is VB intelligent enough to free up all the linked nodes.

 

[chiph]

I don't see anything wrong with your code. But you might try setting the pNext field to nothing like this:

While Not CurrField Is Nothing
   Set NextField = CurrField.pNext
   Set CurrField.pNext = Nothing
   Set CurrField = Nothing  ' <-- not strictly required
   Set CurrField = NextField
Wend

This will be OK since you've saved off a copy in NextField, and will ensure that CurrField should free up.

Chip H.

 

[patljones]

Cheers Chip - works fine now.