Инкапсуляция. Св-ва

Объекты и их жизненный цикл

Основным языком Delphi является язык Object Pascal.

type

TMyClass = class

…

end;

Все экземпляры класса объектов Delphi являются динамическими.

var

AMyObject: TMyClass;

begin

…

AMyObject:= TMyClass.Create;

TMyClass – метод класса, особый вид метода без экземпляра класса.

Любое объявление класса подразумевается, что происходит от суперкласса TObject.

AMyObject.MyMethod;

AMyObject.Destroy;

Вызов деструктора, рекомендуется применять метод Free. Деструктор всегда виртуальный, деструктор выполняет некоторые скрытые действия применяется для удаления динамически размещённых полиморфных объектов. Деструктор обращается к структуре и определяет размер экземпляра (структура класса RTTI).

Всего TObject содержит 17 методов, которыми можно пользоваться без определения класса.

Если конструктор переопределяется, то рекомендуется вызов конструктора родителя в нём: inherited Create;

Инкапсуляция – ограничение прямого доступа к внутренним данным.

Пример использования св-в:

TAnObject = class(TObject)

FValue: TSomeType;

function GetAProperty: TSomeType;

procedure SetAProperty(ANew Value: TsomeType);

property AValue: TSomeType read GetAProperty write SetAPropety;

end;

Чисто внешнее «св-во» – поле данных. Для того чтобы обратиться к св-ву используют оператор присваивания.

var

MyObject.TAnObject;

…

MyObject.AValue:= Value;

Св-во отличается от переменной тем, что использует два метода: чтения (read) и записи (write). Где read – функция – метод обращающийся к реальному полю данных.

Пример:

function TAnObject.GetAProperty: TSomeType

begin

…

GetProperty:= FValue;

…

end;

Сл-но скрытно метод чтения вызывается методом следующим за read, а записи за write.

На основании механизма св-в осуществляется обработка сообщений, в результате удаётся избавить программиста от этих сообщений вводя механизм событий.

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

1) если нет потребности специальных процедур чтения/записи, то их можно заменить именем поля данных

2) ограничить доступ на чтение или запись, то можно не указывать соответствующий метод (например write убрать, а оставить read):

property AValue: TSomeType write FValue;

3) св-во может быть векторным:

property APoints [Index: integer]: TPoint read GetAProperty

write SetAProperty;

В этом примере GetAProperty имеет дополнительный параметр:

function GetAProperty (Index: integer): TPoint;

procedure SetAPOint (Index: integer; NewPoint: TPoint);

Для векторных св-в возможно объявление векторного св-ва по умолчанию (default):

property APoints [Index: integer]: TPoint read GetProperty

write SetAProperty default;

AMyObject.APoint[2]:= Value;

AMyObject[2]:= Value;

На основании векторных св-в в Delphi реализован ряд важных классов, такие как «строки».

4) Возможно объявление значения св-ва по умолчанию:

property APoints [Index: integer]: TPoint read GetAProperty

write SetAProperty default Value;

Дата добавления: 2014-01-07