Материал: Мансуров. Основы программирования в среде Lazarus. 2010

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

____________________________________________________________________

procedure THuman.SetData(const f_name, s_name: string); begin

name:= f_name; fam:= s_name;

end;

end.

program project1; {$mode objfpc}{$H+} uses

CRT, FileUtil, Unit1; var

Person: THuman; fname: string;

begin

Person:= THuman.Create; Person.SetData('Виталий', 'Петров'); fname:= Person.GetData; writeln(UTF8ToConsole('Это: ' + fname));

writeln(UTF8ToConsole('Нажмите любую клавишу')); readkey;

Person.Free;

end.

При разработке классов используйте функцию "Автозавершение кода".

После того, как вы написали объявление метода, нажмите Ctrl+Shift+C и

редактор исходного кода Lazarus автоматически сформирует заготовку тела вашего метода. Например, в описании класса наберите

416

Глава 5 Основы объектно-ориентированного программирования

____________________________________________________________________

procedure SetData(const f_name, s_name: string);

и нажмите Ctrl+Shift+C. Lazarus автоматически создаст следующий код:

procedure THuman.SetData(const f_name, s_name: string); begin

end;

5.3.2Свойства.

Впредыдущей программе для доступа к частным (private) полям мы использовали методы, которые поместили в раздел public. Фактически мы организовали обмен данными между классом и внешней средой. Но для досту-

па к полям данных в классе лучше использовать свойства. Свойства описывают состояние объекта, поскольку определяются полями класса и снабжены двумя специальными методами для записи и чтения значения поля. Таким образом,

свойство это специальный механизм для организации доступа к полю. Опреде-

ляется тремя составляющими: поле, метод чтения, метод записи. Преимущество свойства в том, что методы чтения и записи полностью скрыты. Это позволяет вносить изменения в код класса не изменяя использующий его внешний код.

Объявление свойства имеет вид:

property имя 1: тип <read имя 2> <write имя 3>;

где property (свойство) – ключевое слово;

имя 1 – имя свойства, любой разрешенный идентификатор ;

тип – тип поля;

имя 2 – имя метода чтения или непосредственно имя поля;

имя 3 – имя метода записи или непосредственно имя поля;

417

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

____________________________________________________________________

Угловые скобки означают, что данный параметр может отсутствовать. В случае отсутствия параметра write свойство становится свойством "только для чте-

ния". Изменить значение свойства тогда будет невозможно. Отсутствие пара-

метра read приводит к тому, что свойство становится свойством "только для записи". Однако это лишено смысла, поскольку значение этого свойства (для чтения) будет недоступно.

Наиболее логично использовать свойство со следующими параметрами:

property имя свойства: тип read имя поля write имя метода записи;

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

шаемой задачи.

Объявления свойств следует располагать в разделе public. При записи свойства вы также можете воспользоваться функцией "Автозавершение кода"

редактора исходного кода. Введите

property имя свойства: тип

и нажмите Ctrl+Shift+C. Lazarus автоматически завершит объявление свой-

ства, а также заготовку тела метода записи. Кроме того, добавит в секцию private поле с именем <Fимя свойства> с соответствующим типом и проце-

дуру записи со стандартным именем <Setимя свойства>. Имена полей принято начинать с буквы F, поэтому Lazarus формирует такое имя. Но это не обяза-

тельно. Если вас не устраивают имена, предложенные Lazarus, вы можете про-

сто их переименовать. Например, начните набирать описание класса:

type

418

Глава 5 Основы объектно-ориентированного программирования

____________________________________________________________________

THuman = class

private

name: string;

public

property name: string

end;

Нажмите Ctrl+Shift+C. Автоматически будет создан следующий код:

type

{THuman } THuman = class

private

Fname: string; name: string;

procedure Setname(const AValue: string); public

property name: string read Fname write Setname; end;

implementation

procedure THuman.Setname(const AValue: string);

begin

if Fname=AValue then exit;

Fname:= AValue;

end;

Поскольку при использовании функции "Автозавершение кода" Lazarus

всегда добавляет новое поле в секцию private, логичнее начинать описание

419

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

____________________________________________________________________

класса со спецификатора public и определения свойств. В этом случае секция private также будет автоматически создана и вы получите описание полей и свойств и готовые шаблоны реализации методов записи. В данном случае мы получили описание поля Fname и заготовку процедуры Setname.

При использовании свойства нет необходимости явно вызывать процедуру записи. Достаточно записать:

Person:= THuman.Create;

Person.name:= AValue;

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

Если вы хотите (при использовании функции "Автозавершение кода") для чтения также использовать метод, то вам достаточно перед именем поля в опи-

сании свойства добавить слово Get и вновь нажать на комбинацию клавиш

Ctrl+Shift+C. Вы получите заготовку процедуры чтения, например:

property name: string read GetFname write Setname;

…………………………………………………………………………………………………………………………………

implementation

function THuman.GetFname: string; begin

end;

Рассмотрим примеры работы со свойствами.

unit Unit1;

{$mode objfpc}{$H+}

interface

420