Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

GlobalAlloc   Найти похожие ветки 

← →
s_   (2007-02-14 10:32) [0]

Ув. Мастера! мне необходимо блок памяти распределить с помощью GlobalAlloc.
Вот структура:

 TBlocks=record
     a:integer;
     b:array [0..10]of Char;
 end;
 PBlocks=^TBlocks;
var Blocks:PBlocks;

Необходимо записать в BLocks несколько блоков этой структуры.
А также прочитать.
Заранее спасибо!

---

← →
Плохиш ©   (2007-02-14 10:42) [1]

var Blocks:array of PBlocks;

---

← →
TRUNK ©   (2007-02-14 10:44) [2]

создание
Blocks := PBlocks(GlobalAlloc(GMEM_FIXED,BlocksCount*SizeOf(TBlocks)));

использование
B: TBlocks;
B := PBlocks(Cardinal(Blocks)+BlocksIndex*SizeOf(TBlocks))^;


---

← →
s_   (2007-02-14 11:26) [3]

> Blocks := PBlocks(GlobalAlloc(GMEM_FIXED,BlocksCount*SizeOf(TBlocks)));
Это выделение блока памяти;
а как записать в Blocks несколько блоков структуры.
Так?

 for i:=0 to BlocksCount-1 do
   Blocks := PBlocks(Cardinal(Blocks)+i*SizeOf(TBlocks));
 

---

← →
TRUNK ©   (2007-02-14 11:46) [4]

> а как записать в Blocks несколько блоков структуры

for i := 0 to BlockCount do
 PBlocks(Cardinal(Blocks)+i*SizeOf(TBlocks))^ := B;

---

Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.053 c