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

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

____________________________________________________________________

SetData с помощью которого введенные данные заносятся в нужные поля класса. Признаком окончания ввода служит строка '***'. Получив такую строку с клавиатуры, функция GetName "сигнализирует" вызывающей программе о том, что ввод окончен. При этом новый объект, естественно, создаваться не бу-

дет. Переменная kolperson это счетчик, которая отслеживает количество ре-

ально созданных объектов.

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

Выше мы отмечали, что под инкапсуляцией понимается объединение дан-

ных и логики их обработки в одно целое – объект. Помимо этого, инкапсуляция подразумевает сокрытие внутренней структуры и ограничение доступа. Связь с

"внешним миром" осуществляется через так называемый интерфейс класса, т.е.

набором правил, регламентирующих доступ к членам класса. В известном смысле с классом можно ассоциировать некий "черный ящик". Нам известно что он ("черный ящик") может делать. Управлять им мы можем только через его интерфейс. А вот как он это делает нам неизвестно.

Точно так же, нам важно знать что делает и умеет делать класс. А как он это делает нас, вообще говоря, не должно занимать. Этим должен заниматься программист – разработчик класса. Также для нас важно, как этим классом пользоваться (какой у этого класса интерфейс), т.е. какие у этого класса имеют-

ся доступные свойства и методы.

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

но, кому-то интересно как устроен телевизор, но для большинства людей важно то, что у телевизора имеются соответствующие кнопки или пульт с кнопками

(интерфейс) с помощью которых мы можем смотреть футбол или хоккей (ну,

или кому что нравится смотреть).

406

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

____________________________________________________________________

Принцип сокрытия информации – один из важнейших принципов ООП.

Скрывая внутреннее устройство класса, мы абстрагируемся от ненужных дета-

лей. Кроме того, это позволяет защитить члены класса от несанкционирован-

ного доступа извне.

В первой программе раздела 5.2.1. мы обращались к членам класса напря-

мую, например оператором

Person.name:= 'Виталий';

Вообще говоря, прямое обращение к полям не рекомендуется. Это может стать источником ошибок. Напишем для иллюстрации следующий пример:

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

CRT, FileUtil; type

THuman = class name: string; fam: string;

birthday: integer; function GetData: string;

end;

function THuman.GetData: string; var

s: string; begin

407

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

____________________________________________________________________

str(birthday, s);

Result:= name + ' ' + fam + ' ' + s; end;

var

Person: THuman;

begin

Person:= THuman.Create; writeln(UTF8ToConsole('Введите имя')); readln(Person.name); writeln(UTF8ToConsole('Введите фамилию')); readln(Person.fam);

writeln(UTF8ToConsole('Введите год рождения'));

readln(Person.birthday);

writeln(UTF8ToConsole('Это: '), Person.GetData); writeln(UTF8ToConsole('Нажмите любую клавишу'));

readkey;

Person.Free;

end.

В класс THuman мы добавили новое поле birthday (год рождения).

Кроме того, немного видоизменили метод GetData. Поскольку эта функция возвращает строку, необходимо содержимое поля birthday, имеющий тип integer, преобразовать в строку. Теперь предположим, при вводе года рож-

дения был введен недопустимый символ. Ваша программа аварийно завершит-

ся. Поэтому для изменения значения поля лучше использовать метод (процеду-

ру или функцию). Во второй программе раздела 5.2.1. с массивом объектов мы собственно так и поступили. В методе вы можете организовать контроль над

408

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

____________________________________________________________________

вводимыми данными. Перепишем предыдущую программу следующим обра-

зом:

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

CRT, FileUtil; type

THuman = class name: string; fam: string;

birthday: integer; function GetData: string;

procedure SetData(var f_name, s_name, b_year: string);

end;

function THuman.GetData: string; var

s: string; begin

str(birthday, s);

Result:= name + ' ' + fam + ' ' + s; end;

procedure THuman.SetData(var f_name, s_name, b_year: string);

var

409

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

____________________________________________________________________

code, year: integer; begin

name:= f_name; fam:= s_name;

val(b_year, year, code); if code = 0 then

birthday:= year; end;

var

Person: THuman;

fname, sname, year: string; begin

Person:= THuman.Create; writeln(UTF8ToConsole('Введите имя')); readln(fname); writeln(UTF8ToConsole('Введите фамилию')); readln(sname); writeln(UTF8ToConsole('Введите год рождения')); readln(year);

Person.SetData(fname, sname, year); writeln(UTF8ToConsole('Это: '), Person.GetData); writeln(UTF8ToConsole('Нажмите любую клавишу')); readkey;

Person.Free;

end.

Здесь мы вводим данные в некоторые вспомогательные переменные. Лишь после окончания ввода методом SetData записываем значения в поля объекта

410