Опять про массивы

[Matew]

Тут много писалось про CopyMemory Cut/GetMem4 или вроде того, а можно узнать описание функции CopyMemory и можно ли с помощью нее копировать Pointapi и многомерные (2-х, 3-х) массивы?

[GM]

... можно узнать описание функции CopyMemory ...

Можно

The CopyMemory function copies a block of memory from one location to another.
Declaration
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Parameters
· Destination
Points to the starting address of the copied block’s destination.

· Source
Points to the starting address of the block of memory to copy.

· Length
Specifies the size, in bytes, of the block of memory to copy.

[/quote]
... и можно ли с помощью нее копировать Pointapi и многомерные (2-х, 3-х) массивы?
[/quote]

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

Dim src As POINTAPI, dest As POINTAPI
Call CopyMemory(dest, src, LenB(dest))
Dim arrSrc(1 To 10, 1 To 10) As Integer
Dim arrDest(1 To 10, 1 To 10) As Integer
Call CopyMemory(arrDest(1, 1), arrSrc(1, 1), 100)


[tyomitch]

Тут много писалось про CopyMemory Cut/GetMem4 или вроде того, а можно узнать описание функции CopyMemory и можно ли с помощью нее копировать Pointapi и многомерные (2-х, 3-х) массивы?

CutMem4?
Вырезает из памяти дырку в 4 байта?

[alibek]

Ага, для того, чтобы потом где-нибудь ее PasteMem4 или PasteSpecialMem4

[GSerg]

Только нужно делать это осторожно - в результате система памяти (MAT) может стать сильно фрагментированной...

[Matew]

Call CopyMemory(arrDest(1, 1), arrSrc(1, 1), 100)
а как написать универсально, что бы не писать 100?

[GM]

Call CopyMemory(arrDest(1, 1), arrSrc(1, 1), UBound(a, 1) * UBound(a, 2) * LenB(a(1, 1)))
Вообще то длина Integer 2 байта, так что должно быть 200.

[GM]

Сорри там вместо а должен быть arrSrc или arrDest.

[Matew]

Сэнькс

[Matew]

Я боюсь экспериментировать с этой функцией подскажите как заменить вот это:
For i = 1 To aa
pt(i).x = arrS(5, 1, i)
pt(i).y = arrS(5, 2, i)
Next i
и наоборот:
For j = 1 To aa
arrS(5, 1, j) = pt1(j).x
arrS(5, 2, j) = pt1(j).y
Next j

[GSerg]

А вот здесь, мне кажется, придётся именно так.

[tyomitch]

Да, массивы хранятся вдоль первой компоненты...
Если бы было

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

For i = 1 To aa
pt(i).x = arrS(1, i, 5)
pt(i).y = arrS(2, i, 5)
Next i

- тогда можно бы было заменить.

[Matew]

Мне в принципе все равно-переделаю)))
Напишите, как...

[tyomitch]

Мне в принципе все равно-переделаю)))
Напишите, как...

CopyMemory pt(1), arrS(1, 1, 5) , aa * LenB(pt(1))