ДИНАМИЧЕСКИЕ ОБЪЕКТЫ

Для динамических объектов есть специальная форма процедуры new, с двумя параметрами, которая одновременно выделяет место объекту в куче и инициализирует его.

Объект может содержать указатели на динамические структуры или объекты, которые необходимо освободить или стереть в определённом порядке. Обычно для методов освобождения и стирания используют идентификатор done. Деструкторы – особые методы, предназначенные для освобождения динамически распределённых объектов. Их задача – осуществлять поиск размера этого типа экземпляра в таблице виртуальных методов и передавать этот размер процедуре dispose. Деструкторы применяются, когда полиморфные объекты должны быть очищены и освобождено их место в динамической памяти.

Рассмотрим программу, которая:

1) строит иерархию графических объектов (точка, маркер, окружность), выводит их на экране и может перемещать эти изображения по экрану;

2) выполняет предыдущее задание с использованием виртуальных методов;

3) создаёт связанный список динамических объектов (графических изображений) и выводит их на экран.

Для создания связанного списка динамических объектов создадим новый тип объекта LIST, его предназначение – возглавлять список других объектов (PointPtr – указатель на суперкласс графических объектов)

NodePtr=^Node;

Node=record

Item : PointPtr;

Next : NodePtr;

end;

ListPtr=^List;

List=object

Nodes : NodePtr;

Constructor Init;

Destructor Done; virtual;

Procedure Add (Item ; PointPtr);

Procedure View;

end;

…

Constructor List.Init;

begin

Nodes:=nil;

end;

Destructor List.Done;

var T: NodePtr;

begin

while Nodes <> nil do

begin

T:=Nodes;

dispose (T^.Item, Done);

Nodes:=T^.Next;

dispose (T);

end;

end;

Procedure List.ADD (Item : PointPtr);

var T ; NodePtr;

begin

new(T);

T^.item:=Item;

n^.Next:=Nodes;

Nodes:=T;

end;

Procedure List.View;

var curr : nodePtr;

begin

curr;=Nodes;

while cur <> nil do

begin

curr^.Item^.Show;

curr:=curr^.Next;

end;

end;