| Статистика | 
|
|
Каталог статей
Динамические массивы 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.
|
|
|
Просмотров: 336
5
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
