Главная страница
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.042 c
1-1168518716
msgipss
2007-01-11 15:31
2007.03.04
Использование Apache2.x Shared Module


15-1170859121
Desdechado
2007-02-07 17:38
2007.03.04
Updates на Delphi 7


3-1165645262
Ulugbek
2006-12-09 09:21
2007.03.04
Mysql 5 Ошибка в запросе unkown column g.kod_ms in on clause


15-1170761902
vasIZmax
2007-02-06 14:38
2007.03.04
Оболочка для тестов


2-1171093444
inkvizitor
2007-02-10 10:44
2007.03.04
открытие текстового файла в StringGrid