скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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




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.






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook