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

5.4. Наследование

____________________________________________________________________

if code = 0 then

Person.birthday:= year

else

Person.birthday:= 0;

fname:= Person.GetData;

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

readkey;

Person.Free;

end.

5.4. Наследование

Представьте себе, что имеется класс, который вас в принципе удовлетво-

ряет, но чего-то в нем чуть-чуть не хватает. Что придется заново разрабатывать класс? Конечно же, заново создавать класс не нужно. Достаточно создать класс на основе существующего и просто добавить в него недостающие члены (поля,

методы и свойства). Это и есть наследование. Новый класс называется наслед-

ником или потомком или дочерним классом. А старый класс называется роди-

тельским классом или предком или базовым классом. Объявляется класс на-

следник следующим образом:

type

<Имя класса наследника> = class(Имя класса родителя) <Описание полей, методов и свойств,

характерных только для класса наследника>

end;

<Реализация методов>

Если имя класса родителя не указано, то по умолчанию класс наследуется

426

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

____________________________________________________________________

от самого общего класса TObject. Наш класс THuman из предыдущих приме-

ров является наследником TObject.

Класс наследник получает (наследует) все поля, методы и свойства класса родителя. В то же время созданный класс, в свою очередь может выступать в качестве родителя. В Free Pascal существует так называемая иерархия классов, на вершине которого и находится класс TObject. Таким образом,

класс TObject является прародителем всех остальных классов.

Например, создадим класс TStudent (студент). Можно создать этот класс с нуля, но, поскольку студент является человеком, то логично будет соз-

дать класс на основе класса THuman.

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

uses

CRT, FileUtil;

function GetData: string; end;

function THuman.GetData: string; begin

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

427

5.4. Наследование

____________________________________________________________________

type

TStudent = class(THuman) // объявление класса – наследника private

group: string; end;

var

Student: TStudent; fname: string;

begin

Student:= TStudent.Create;

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

Student.fam:= 'Петров'; Student.group:= 'ПОВТАС-1/09'; fname:= Student.GetData;

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

Student.Free;

end.

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

будут доступны поля name (имя) и fam (фамилия), а также метод GetData

родительского класса. И класс THuman и класс TStudent являются потомка-

ми класса TObject, поэтому для класса TStudent доступен метод (конструк-

428

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

____________________________________________________________________

тор) Create класса TObject (более подробно о конструкторах смотрите ни-

же).

Обратите внимание, если вы собираетесь использовать только объект клас-

са TStudent, то создавать экземпляр класса THuman вовсе не обязательно.

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

unit Unit1;

{$mode objfpc}{$H+} interface

uses

Classes, SysUtils;

fam: string; public

function GetData: string; end;

implementation

function THuman.GetData: string; begin

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

429

5.4. Наследование

____________________________________________________________________

end.

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

CRT, FileUtil, Unit1; type

TStudent = class(THuman) // объявление класса - наследника private

group: string; end;

var

Student: TStudent; fname: string;

begin Student:=TStudent.Create;

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

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

Student.group:= 'ПОВТАС-1/09';

fname:= Student.GetData;

writeln(UTF8ToConsole('Это: ' + fname));

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

readkey;

Student.Free;

end.

430