VB Forum / Win API / July 2007

P.S. , I replaced CopyMemory with RtlMoveMemory and seems to be working
OK now, still not sure if this is the correct way of doing it, never
used these APIs before.

Thanks for any tips,
Ed

Ed <nospam@hotmail.com> schrieb im Beitrag
<mk02a3l1e6476q5a8fanv9poltf2i9nlac@4ax.com>...

Private Sub RemoveElement_Bool(AryVar() As Boolean, ByVal Index As Long)
 Dim Count As Long, IndexMax As Long

 On Error Resume Next
 IndexMax = UBound(AryVar)
 Count = IndexMax - LBound(AryVar) + 1
 On Error Goto 0

 If Count = 0 Then
   Exit Sub
 Else If (Index < LBound(AryVar)) Or (Index > IndexMax) Then
   Exit Sub
 End If

 Count = Count - 1

 If Count = 0 Then
   Erase AryVar
 Else

   If Index < IndexMax Then
     CopyMemory ByRef AryVar(Index), _
                ByRef AryVar(Index + 1), _
                Len(AryVar(Index)) * Count
   End If

   ReDim Preserve AryVar(LBound(AryVar) To (IndexMax - 1))

 End If

End Sub

But this as well is not the 'correct' way since CopyMemory() bypasses the
type checking and securing methods of VB. 'Correct' would be moving of the
array items in a loop without using CopyMemory().