Советы по Delphi

Срочный выкуп авто в Тюмени по материалам сайта. |

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




Начало  Назад  



Книжный магазин