Советы по Delphi

         

Arrays


Динамические массивы

Очень простой пример...

    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.
[000026]



Содержание раздела