Объявление объекта. Инициализация полей

Описав класс, мы можем объявить любое количество объектов этого класса, причем можно объявить отдельные объекты, массивы объектов и указатели на объекты данного класса.

Например:

Var A:TRoom; {объект А классаТRооm}

B:array [1..5] of ТRоот; {массив объектов типа TRoom}

Type pTRoom = ^TRoom; {тип указателя на объекты класса TRoom}

Var рС:pTRoom; {указатель на объекты класса TRoom}

Как и для любой другой динамической переменной, для динамического объекта необходимо выделить память, а после его использования - освободить память.

Выделение памяти осуществляют процедурой New или функцией New. Например:

New(pC); или pC:=New(pTRoom); ...

Для освобождения памяти используют процедуру Dispose. Например:

Dispose(pC); ...

Работа с динамическими объектами классов, построенных с использованием наследования со сложным полиморфизмом, имеет свои особенности, и мы вернемся к их рассмотрению позже.

Обращение к полям и методам объекта. Обращение к полям и методам объекта выполняется так же, как к полям записей:

• с использованием точечной нотации:

<имя объекта>.<имя поля> или <имя объекта>.<имя метода>;

• с использованием оператора with:

with <имя объекта> do

begin

...<имя поля>...

...<имя метода>...

end; ...

Инициализация полей объекта. Поля объекта должны инициализироваться. Инициализация полей объекта может осуществляться тремя способами:

1. прямым занесением в поле, например:

Program ex;

type TRoom = object

length, width:real; {поля: длина и ширина комнаты}

function Square:real; {метод определения площади}

end;

Function TRoom.Square; {тело метода определения площади}

Begin

Square:= length* width;

End;

Var A:TRoom; {объявляем объект- переменную}

Begin

A.length:=3.5; {инициализируем поля объекта}

A. width:=5.1;

WriteLn( 'Площадь комнаты равна =', A.Square);

End.

2 с использованием типизированных констант - синтаксис описания совпадает с синтаксисом типизированных констант типа «запись»:

Program ex;

Type TRoom = object

length, width:real; {поля: длина и ширина комнаты}

function Square:real; {метод определения площади}

end;

Function TRoom.Square; {тело метода определения плошали}

Begin

Square:=length* width;

End;

Const

A:TRoom = (length:3.5; width:5.1); {объявляем константу}

Begin

WriteLn('Площадь комнаты равна =', A.Square);

End.

3. посредством специального метода - очень часто в качестве такого метода используют специальную инициализирующую процедуру, которую рекомендуется называть init:

Program ex;

Type TRoom = object

length, width:real; {поля: длина и ширина комнаты}

function Square: real; {метод определения площади}

Procedure TRoom.Init; {инициализирующии метод}

end;

{метод определении нлощади}

Function TRoom.Square;

Begin

Square := length* width;

End;

{инициализирующий метод}

Procedure TRoom.Init;

Begin

length:=l; width:=w;

End;

Var A:TRoom; {объявляем объект-переменную}

{основная программа}

Begin

A.Init(3.5,5.1); {инициализируем поля объекта}

WriteLn( 'Площадь комнаты равна ', A.Square);

End.

Операции присваивания объектов. Над объектами одного класса определена операция присваивания. Физически при этом происходит копирование полей одного объекта в другой методом «поле за полем»:

Const A:TRoom=(length:3.7; width:5.2);

Var В:TRoom;...

В:= А; {теперь B.length=3.7, a B.width=5.2}

Существуют некоторые особенности выполнения операции присваивания для объектов родственных классов и полиморфных объектов. Они описаны ниже.