Array Q!

Hi Again.

I'm sorry but I have this annoying question:

I have an array:

VB Code:

Dim MyArray() as tMyType

After a while it gets many cells. Say it's now at 1 to 5 size.
I want to delete a middle cell, I delete it and I want to refix the size to 1 to 4.
How can I do it?
When I do:

VB Code:

Redim Preserve MyArray(1 to 4)

It gives me an error.

Thank you in advance,
Arie.

You need to do this:

VB Code:

Dim nDelete As Long 
Dim i As Long
 
nDelete = 5 'The index you want to KILL! :)
For i = nDelete + 1 To UBound(MyArray)
    MyArray(i - 1) = MyArray(i)
Next i
Redim Preserve MyArray(LBound(MyArray) To UBound(MyArray) - 1)

It's pretty simple to work out what it does, I hope you'll ask again if you have any difficulties!

Thank you,
I'll try it, but I think that that's what I have done and it gave me an error.

Arie.

It gave me an error: 'This array is fixed or temporarily locked'
Anyone knows the meaning?
Please help!!

Thank you,
Arie.

Arie, do an MSDN search for that error. It will tell you what you are doing wrong.

Sas, a better way would be to copy the last element of the array into the slot you want to delete, and then shrink the array by one:

Code:

---

|2|4|3|1|5|
remove the 4...
|2|5|3|1|5|
Shrink:
|2|5|3|1|

---

Your code is good for short arrays that need to remain sorted, but at times even the above method followed by a sort can be faster (by a bit, not much) =).

Z.

I like the 'clean' approach that the first one gives (which is why I always do code in roundabout ways :D)

I get that error when I dim an array like MyArray(1 to 5) and then try to redim it. Maybe that's what you're doing?

What you mean is that:

I create an array MyArray() without the limits
and then Redim it and when I want to shrink it, I can't RediM it again?
Maybe there is another way... Anyone? :(

Thank you so far,
Arie.