Динамические массивы 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. |