Главная страница
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.051 c
15-1170662964
Kerk
2007-02-05 11:09
2007.03.04
Делегирование домена


15-1171027346
oldman
2007-02-09 16:22
2007.03.04
"А все таки она вертится!" (опрос на память)


2-1171480212
NightRain
2007-02-14 22:10
2007.03.04
Как в ScrollBox сделать что бы работала прокрутка колесиком мышки


2-1171360461
hooky-mars
2007-02-13 12:54
2007.03.04
Number в Парадокс


2-1171036455
Дрон
2007-02-09 18:54
2007.03.04
Процессор и температура