Справочник по Pascal — Управление памятью (динамические структуры)

Код IT Загрузка примера кода…

type
  PNode = ^TNode;
  TNode = record
    Данные: Integer;
    Next: PNode;
  end;

var
  P: PNode;
begin
  New(P);        // выделение памяти
  P^.data := 42;
  Dispose(P);    // освобождение
end;

type
  PNode = ^TNode;
  TNode = record
    Данные: Integer;
    Next: PNode;
  end;

var
  P: PNode;
begin
  New(P);        // выделение памяти
  P^.data := 42;
  Dispose(P);    // освобождение
end;