Code:

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.

Code:

type

ElementType = LongInt;

const

MaxArraySize = (65520div SizeOf(ElementType));

(* в 16-битной среде *)

type

MyArrayType = array[1..MaxArraySize] of ElementType;

var

P: ^MyArrayType;

const

ArraySizeIWant: Integer = 1500;

Code:

procedure AllocateArray;

begin

if ArraySizeIWant <= MaxArraySize then

   P := AllocMem(ArraySizeIWant * SizeOf(LongInt));

end;

Code:

procedure AssignValues;

var

I: Integer;

begin

for I := 1to ArraySizeIWant do

   P^[I] := I;

end;

Code:

procedure DeallocateArray;

begin

P := AllocMem(ArraySizeIWant * SizeOf(LongInt));

end;

Code:

unit Unit1;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls;

type

ElementType = Integer;

const

MaxArraySize = (65520div SizeOf(ElementType));

{ в 16-битной среде }

type

{ Создаем тип массива. Убедитесь в том, что вы установили

максимальный диапазон, который вам, вероятно, может понадобиться. }

TDynamicArray = array[1..MaxArraySize] of ElementType;

TForm1 = class(TForm)

   Button1: TButton;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

{ Создаем переменную типа указатель на ваш тип массива. }

P: ^TDynamicArray;

const

{ Это типизированные константы. В действительности они

являются статическими переменными, инициализирующимися

во время выполнения указанными в исходном коде значениями.

Это означает, что вы можете использовать типизированные

константы точно также, как и любые другие переменные.

Удобство заключается в автоматически инициализируемой величине. }

DynamicArraySizeNeeded: Integer = 10;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

{ Распределяем память для нашего массива. Будь внимательны

и распределяйте размер, в точности необходимый для размещения нового массива.

Если вы попытаетесь записать элемент, выходящий за допустимый диапазон,

компилятор не ругнется, но объект исключения вам обеспечен. }

DynamicArraySizeNeeded := 500;

P := AllocMem(DynamicArraySizeNeeded * SizeOf(Integer));

{ Как присвоить значение пятому элементу массива. }

P^[5] := 68;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

{ Вывод данных. }

Button1.Caption := IntToStr(P^[5]);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

{ Освобождаем распределенную для массива память. }

FreeMem(P, DynamicArraySizeNeeded * SizeOf(Integer));

end;

end.