Особенности использования объектов

Значение одной объектной переменной можно присвоить другой. При этом объект не копируется в памяти, а вторая переменная просто связывается с тем же объектом, что и первая:

Листинг 1.10

Var

A, B: TMySimpleClass; // Переменные A и B не связаны с объектом

Begin

A := TMySimpleClass.Create; // Связывание переменной A с новым объектом

// Переменная B пока еще не связана ни с каким объектом

B := A; // Связывание переменной B с тем же объектом, что и A

// Теперь обе переменные связаны с одним объектом

B.Free; // Уничтожение объекта

// Теперь A и B не связаны ни с каким объектом

end;

Объекты могут выступать в программе не только в качестве переменных, но также элементов массивов, полей записей, параметров процедур и функций. Кроме того, они могут служить полями других объектов. Во всех этих случаях программист фактически оперирует указателями на экземпляры объектов в динамической памяти. Следовательно, объекты изначально приспособлены для создания сложных динамических структур данных, таких как списки и деревья. Указатели на объекты для этого не нужны.

С объектами-наследниками можно работать так же как и с объектами-родителями. Это, например, позволяет держать в одном массиве родственный объекты разных классов, а не создавать несколько отдельных массивов.

Пусть перед нами стоит задача рисования некоторых геометрических фигур. Возьмём прямоугольник и круг. Создадим для них два класса, наследуемых от абстрактного класса фигура. Далее поместим объекты обоих классов в один массив и будем по очереди вызовать для каждого объекта метод Draw().

Листинг 1.11

Type

TFigure= class(TObject)

procedure Draw();virtual;abstract;

end;

TRectangle = class(TFigure)

fx,fy:integer;

procedure Draw();override;

end;

TCircle = class(TFigure)

fR:integer;

procedure Draw();override;

end;

…

var A:array [1..3] of TFigure;

i:integer;

…

procedure TRectangle.Draw;

Begin

inherited;

ShowMessage('Rectangle');

end;

procedure TCircle.Draw;

Begin

inherited;

ShowMessage('Circle');

end;

//данный код поместить в обработчик нажатия кнопки

A[1]:=TRectangle.Create();

A[2]:=TCircle.Create();

A[3]:=TRectangle.Create();

for i:=1 to 3 do A[i].Draw();

После точки в такой конструкции будут выводиться только те поля и методы, которые имеются в родительском классе. Если нужно обратиться к элементам наследников, то необходимо использовать приведение типов:

TRectangle(a[1]).x:=2;

Если заранее не известно какого типа текущий обрабатываемый элемент, то можно внести дополнительное поле в класс родителя, которое будет давать эту информацию.

Расширенное описание класса.

Помимо использования обычных полей (переменных) и методов (функций) в objectpascal встречаются их некоторые модификации. Это свойства, события, обработчики событий. В общем виде класс имеет следующую структуру (пример):

Листинг 1.12

TMyRectangle = class(TObject)

Public //раздел конструкторов и деструкторов

constructor Create; overload; //конструкторпоумолчанию

constructor Create(width,height: integer); overload; //параметрич. конструктор

Protected //в защищённом разделе находятся поля объекта

Fw: integer; //ширина - поле

FhTeg: integer; //высота - поле

Protected //раздел методов для работы со свойствами

procedureSetwidth(width:integer); //установка значения ширины - метод

function Getwidth: integer; //получение значения ширины - метод

procedureSetHeight(height:integer); //установка значения ширины - метод