Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.062 c
1-1168276986
dima123
2007-01-08 20:23
2007.03.04
TListView


11-1149004549
parovoZZ
2006-05-30 19:55
2007.03.04
Стоит ли ставить сабж


15-1170538559
Евгенич
2007-02-04 00:35
2007.03.04
Что почитать, чтобы научиться писать код?


15-1171147673
homm
2007-02-11 01:47
2007.03.04
SATA и иконка в трее


2-1171374503
Darvin
2007-02-13 16:48
2007.03.04
Компонент отображения данных