MoveMemory с UDT

[pronto]

Здравствуйте! Назрела небольшая проблемка.
Есть массив пользовательского типа. Этот UT содержит в себе объявление динамического массива с другим пользовательским типом.
В какой-то момент происходит изменение размерности второго массива. Естественно, нужно обеспечить целостную последовательность данных но MoveMemory не работает с пользовательскими типами.
Как (чем) не в цикле можно сделать перемещение данных в пределах второго массива?

Код: Выделить всё

Type S
   sA As String * 28
   sB As Long
   sC As Integer
   sD As Integer
End Type

Type R
   rA As String * 28
   rB As Long
   rC() As S
End Type

Private ER() As R

MoveMemory ER(1).rC(456), ER(1).rC(455), 128 ' молча падает

[ANDLL]

Здравствуйте! Назрела небольшая проблемка.
Есть массив пользовательского типа. Этот UT содержит в себе объявление динамического массива с другим пользовательским типом.
В какой-то момент происходит изменение размерности второго массива. Естественно, нужно обеспечить целостную последовательность данных но MoveMemory не работает с пользовательскими типами.
Как (чем) не в цикле можно сделать перемещение данных в пределах второго массива?

Код: Выделить всё

Type S
   sA As String * 28
   sB As Long
   sC As Integer
   sD As Integer
End Type

Type R
   rA As String * 28
   rB As Long
   rC() As S
End Type

Private ER() As R

MoveMemory ER(1).rC(456), ER(1).rC(455), 128 ' молча падает

А MoveMemory это значит не в цикле?

[pronto]

Э-э-э-э.
Или

Код: Выделить всё

MoveMemory ER(1).rC(456), ER(1).rC(455), 128

или в цикле

Код: Выделить всё

For i = 500 To 455 Step -1
   ER(1).rC(i) = ER(1).rC(i - 1)
Next i

[pronto]

Посоветуйте, что в такой ситуации делать?! Может реорганизовать данные, пока это несложно?

[Хакер]

Я, к примеру, вообще не понял суть проблемы. Зачем нужно делать MoveMemory при изменении размера (а не размерности) массива?

[pronto]

Размерность меняется в другом месте, с этим проблем нет. Я хочу чтобы новые данные были вставлены в середину массива, для это его нужно раздвинуть. Пока, делаю это простым циклом.

[Хакер]

Ты путаешь размерность и размер.
Во-вторых, обяъвление в студию.

[pronto]

Ты путаешь размерность и размер.

НЕпростительно!

Во-вторых, обяъвление в студию.

Если объявления типов и используемого массива, то в первом посте (в упрощенном виде, но суть отображает).

[Хакер]

А если нет? Наверное, если я прошу объявление чего-то, то это что-то — то, объявление чего нет в первом посте?

[pronto]

Объявляю в модуле:

Код: Выделить всё

Public Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDestination As Any, pSource As Any, ByVal cbLength As Long)

Type S
   sA As String * 28
   sB As Long
   sC As Integer
   sD As Integer
End Type

Type R
   rA As String * 28
   rB As Long
   rC() As S
End Type

Public ER() As R


Функцию использую в форме.

[pronto]

Чудеса продолжаются!..

Код: Выделить всё

Type erS
   sName As String * 28
   sL As Integer
   sM As Integer

   LS As Long     
   CL As Long     
   sG As Long
End Type

Private S() As erS

Private Sub Command1_Click()
   MoveMemory S(0), S(3), ByVal SLen
   
   Debug.Print S(0).sName
End Sub


Работает!

Код: Выделить всё

Private Sub Command1_Click()
   [i]Debug.Print S(0).sName[/i]

   MoveMemory S(0), S(3), ByVal SLen
   
   Debug.Print S(0).sName
End Sub

Не работает!
Объясните, в чем тут дело? Разница только в присутствии строки Debug.Print S(0).sName...