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

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

____________________________________________________________________

Person. Причем в SetData осуществляем контроль значения года рождения путем преобразования строки в число функцией val. Как вам уже известно, эта функция возвращает ненулевое значение в параметре code, если строка не мо-

жет быть преобразована в число.

Однако, в большинстве случаев, целесообразно вообще запретить доступ к некоторым членам класса извне. Для этого применяются спецификаторы дос-

тупа.

5.3.1 Спецификаторы доступа.

Для реализации инкапсуляции имеются следующие спецификаторы (ди-

рективы), управляющие видимостью (доступностью) членов класса:

private (частный, говорят еще приватный) – поля и методы класса недос-

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

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

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

чика данного класса (классов) в этом модуле. Согласитесь, глупо ограничивать в доступе к "внутренностям" телевизора самого изготовителя.

protected (защищенный) – поля и методы класса имеют ограниченную видимость. Они видны в самом классе, во всех классах наследниках этого класса (том числе и в других модулях) и в программном коде, расположенном в том же модуле, что и данный класс.

public (публичный) – свободно доступны из любого места программы, в

том числе и из других модулей.

Как правило, поля класса объявляются как private, а методы – public.

Хотя те методы, которые нужны только для внутреннего использования, вполне можно поместить в раздел private или protected.

411

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

____________________________________________________________________

Напишем следующую программу:

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

CRT, FileUtil; type

THuman = class private

name: string; fam: string;

public

function GetData: string; end;

function THuman.GetData: string; begin

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

var

Person: THuman; fname: string;

begin

Person:= THuman.Create;

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

Person.fam:= 'Петров';

412

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

____________________________________________________________________

fname:= Person.GetData;

writeln(UTF8ToConsole('Это: ' + fname)); writeln(UTF8ToConsole('Нажмите любую клавишу'));

readkey;

Person.Free;

end.

Эта программа отличается от первой программы раздела 5.2.1. тем, что мы ввели в описание класса спецификаторы доступа. Здесь поля name и fam по-

прежнему останутся доступны программе, несмотря на то, что они помещены в раздел private.

Теперь создайте модуль (меню Файл->Создать модуль) и переместите описание класса в созданный модуль (раздел interface), а реализацию мето-

да GetData в раздел implementation. Остальной код программы оставьте без изменений. Обратите внимание, Lazarus автоматически добавил в объявле-

ние uses имя вновь созданного модуля.

unit Unit1;

{$mode objfpc}{$H+} interface

uses

Classes, SysUtils; type

THuman = class private

name: string; fam: string;

public

413

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

____________________________________________________________________

function GetData: string; end;

implementation

function THuman.GetData: string; begin

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

end.

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

CRT, FileUtil, Unit1; var

Person: THuman; fname: string;

begin

Person:= THuman.Create;

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

Person.fam:= 'Петров'; fname:= Person.GetData;

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

Person.Free;

end.

414

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

____________________________________________________________________

При попытке компиляции компилятор выдаст ошибку на операторах:

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

Person.fam:= 'Петров';

Для записи значений в поля name и fam необходимо создать метод и по-

местить его объявление в раздел public.

unit Unit1;

{$mode objfpc}{$H+} interface

uses

Classes, SysUtils; type

{ THuman } THuman = class

private

name: string; fam: string;

public

function GetData: string;

procedure SetData(const f_name, s_name: string); end;

implementation

function THuman.GetData: string; begin

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

415