Инкапсуляция

В Турбо Паскале средства объектно-ориентированного программирования связаны с тремя зарезервированными словами: OBJECT CONSTRUCTOR и DESTRUCTOR и двумя стандартными директивами: PRIVATE и VIRTUAL.

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

type

Tpoint = object

X,Y: Integer; {Координаты точки}

Color:word; {Цвет точки)

Visible: Boolean; {Признак светимости}

Procedure Setlocation (NewX, NewY: integer);

{Задает новое положение, точки на экране}

Procedure SetCoforfNewColor: word); {Устанавливает цвет точки}

Procedure SetVislble(VIS: Boolean);

{Выводит или гасит точку)

Procedure GetLocatIon(var Xloc, YLoc:integer);

{Возвращает координаты точки}

Function GetColor: word;

{Возвращает цвет точки)

Function GetVislble: Boolean;

{Возвращает признак светимости точки}

end; {Конец описания объекта ТРOINT)

В этом примере описывается объект TPOINT, представляющий собой данные и методы (процедуры и функции), необходимые для работы с графическими точками на экране ПК. инкапсулированные объект процедуры и функции называются методами. Как видим, каждая точка характеризуется некоторым набором данных (своими координатами X и У, цветом COLOR и признаком светимости VISIBLE). Над этими данными определены все необходимые алгоритмические действия. С помощью этих переменных можно осуществлять все предусмотренные, в объекте действия, например, для переменных типа TPOINT можно высветить или погасим, любую точку, переместить ее по экрану, изменить цвет.

Нетрудно заметить, что описание объекта и использование объектных переменных во многом похоже на описание и использование записей: инкапсулированные в объекте данные и методы становятся доступны с помощью оператора присоединения WITH или с помощью составных

имен, например:

if Point.GetVisible then Polnt.SetVisible(False);

При описании объекта вначале, описываются все инкапсулированные в нем данные, а затем - методы доступа к этим данным. В качестве методов используются процедуры и функции, а также конструкторы и деструкторы.

Таким образом, указание методов при описании объекта подобно их опережающему описанию. Поскольку данные и методы инкапсулированы в одном объекте, все данные автоматически становятся глобальными, по отношению к любым методам и могут использоваться в них произвольным образом. Точнее говоря, любой метод объекта работает с невидимым оператором WITH, обеспечивающим ему доступ ко всем полям (как мы увидим далее, поля могут следовать в объявлении типа и после объявления метода и в этом смысле не являться для него глобальными). При обращении к методу ему передается особый идентификатор SELF, представляющий собой обобщенное имя экземпляра объекта. Любой метод может использовать идентификатор SELF, чтобы явно указать на принадлежащий объекту метод или поле. Например:

type ТСоо = record

X.Y: integer;

end;

TPoint = object

X,Y: integer;

Procedure lnit(Coo: TCoo);

end;

Procedure TPofntfCoo: TCoo):

begin

with Coo do

begin

Self.X := X;

Self.Y := Y;

end;

end;