Array Q!

[Arie]

Hi Again.

I'm sorry but I have this annoying question:

I have an array:

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:

Redim Preserve MyArray(1 to 4)

It gives me an error.

Thank you in advance,
Arie.

[Sastraxi]

You need to do this:

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!

[Arie]

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

Arie.

[Arie]

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

Thank you,
Arie.

[Zaei]

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:

|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.

[Sastraxi]

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

[Sastraxi]

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?

[Arie]

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.