Как правильно сохранить адреса блоков памяти в массиве?
А так же в элементе структуры?
Обычно
*mem=AllocateMemory(bufLen)
....
PokeB(*mem,$02)
PokeB(*mem+1,$01)
....
=PeekB(*mem+p)
....
и т.п
Как правильно сохранить адреса блоков памяти в массиве?
Страница: 1
Сообщений 1 страница 6 из 6
Поделиться125.12.2013 09:46:03
Поделиться225.12.2013 10:28:55
Не совсем понятно что требуется в конечном итоге.
Просто сохранить адреса и все?
Поделиться326.12.2013 02:02:26
В приведенном примере вместо *mem использовать элемент массива или элемент структуры (которая связана в LinkedList).
Проблема в том, что заранее неизвестно сколько блоков памяти разного размера нужно будет выделить.
Поделиться426.12.2013 10:29:25
Все равно не до конца не понятно в чем сложность.
Если нужно в каждом элементе списка хранить указатель на память, то в чем проблема?
Код:
NewList Test.i()
*mem=AllocateMemory(100)
If *mem
If AddElement(Test())
Test()=*mem
Else
FreeMemory(*mem)
EndIf
EndIfХотя в качестве памяти можно использовать массив.
Код:
Structure Buff Array Buff.a(0) EndStructure NewList Test.Buff()
Или нужно это?
Код:
Structure Test x.l y.l EndStructure *x.Test=AllocateMemory(SizeOf(Test)) If *x *x\x = 10 *x\y = 20 Debug *x\x Debug *x\y FreeMemory(*x) EndIf
Поделиться527.12.2013 10:52:05
Если работать через промежуточную переменную *mem
то получается примерно так
Код:
Protected Dim aAddrOfOID.i(QTY_OID)
...
*mem=AllocateMemory(...)
If *mem ; сохранить адрес
aAddrOfOID(i)=*mem
i+1
Else
Ok=#False
EndIf
.....
*OID=aAddrOfOID(i-1) ; попользоваться блоков памяти
OID_Size=MemorySize(*OID)
....
CopyMemory(*OID,....,OID_Size)
....
; почистить память
for i=1 to QTY_OID
If aAddrOfOID(i-1)
*mem=aAddrOfOID(i-1)
FreeMemory(*mem)
EndIf
nextПоделиться611.01.2014 16:36:38
SadStar
Как-то так
Код:
Structure MyStructure
*adr
len_mem.i
EndStructure
Protected Dim aAddrOfOID.MyStructure(QTY_OID)
...
*mem=AllocateMemory(len)
If *mem
aAddrOfOID(i)\adr=*mem
aAddrOfOID(i)\len_mem=len
i+1
Else
Ok=#False
EndIf
.....
*OID=aAddrOfOID(i-1)\adr; ?????????????? ?????? ??????
OID_Size=aAddrOfOID(i)\len_mem
....
CopyMemory(*OID,....,OID_Size)
....
; ????????? ??????
For i=1 To QTY_OID
If aAddrOfOID(i-1)\adr
FreeMemory(aAddrOfOID(i-1)\adr)
EndIf
NextСтраница: 1