Динамические массивы I
Очень простой пример...
Const MaxBooleans = (High(Cardinal) - $F) div sizeof(boolean);
Type TBoolArray = array[1..MaxBooleans] of boolean;
PBoolArray = ^TBoolArray;
Var B : PBoolArray;
N : integer;
BEGIN N := 63579;
{= получение памяти под динамический массив.. =}GetMem(B, N*sizeof(boolean));
{= работа с массивом... =}B^[3477] := FALSE;
{= возвращение памяти в кучу =}{$IFDEF VER80} FreeMem(B, N*sizeof(boolean));
{$ELSE}FreeMem(B);
{$ENDIF}END. |