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

5.5. Полиморфизм

____________________________________________________________________

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

чае это будет "Получить сведения о человеке", в другом случае "Получить све-

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

чающиеся по сути. Мы можем написать совсем коротко – "Получить сведения".

Так вот, возвращаясь "к нашим баранам", мы можем констатировать, что функция GetData это и есть действие "Получить сведения". Поэтому мы мо-

жем использовать в дочерних классах методы с таким же именем, что и в роди-

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

бенно если производных классов достаточно много. Отсюда, мы можем напи-

сать:

function TStudent.GetData: string; begin

Result:= name + ' ' + fam + ', группа ' + group; end;

function TProfessor.GetData: string; begin

Result:= name + ' ' + fam + ', кафедра ' + kafedra; end;

Такое явление, когда методы класса родителя и методы дочерних классов имеют одинаковые имена, но различные реализации называется полиморфиз-

436

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

____________________________________________________________________

мом. Функции THuman.GetData, TStudent.GetData и TProfessor.GetData несомненно различаются, поскольку возвращают строки с разным содержанием. В одном случае просто имя и фамилию, в дру-

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

TStudent описать тип поля group как integer. В этом случае будет воз-

вращаться не название группы, а его номер. Реализация этого метода будет сле-

дующая:

function TStudent.GetData: string;

var

s: string;

begin

str(group, s);

Result:= name + ' ' + fam + ', группа ' + s;

end;

5.5.1 Раннее связывание.

Одноименные методы, определенные таким образом, называются статиче-

скими. При вызове метода, помимо явно описанных параметров функции или процедуры, неявно передается еще один параметр self – указатель на объект,

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

ского класса с тем же именем. Гораздо чаще применяются термины перекрытие или переопределение. Можно было сказать – метод дочернего класса перекры-

вает (переопределяет) метод родительского класса с тем же именем. При этом количество и типы параметров нового метода дочернего класса и переопреде-

437

5.5. Полиморфизм

____________________________________________________________________

ляемого метода могут не совпадать. Рассмотрим пример, где используется ме-

ханизм раннего связывания.

unit Unit1;

{$mode objfpc}{$H+} interface

uses

Classes, SysUtils; type

{ THuman }

THuman = class private

Fname: string;

Ffam: string;

procedure Setname(const AValue: string); procedure Setfam(const AValue: string);

public

property name: string read Fname write Setname; property fam: string read Ffam write Setfam; function GetData: string;

end; implementation

{ THuman }

procedure THuman.Setname(const AValue: string); begin

if Fname=AValue then exit;

438

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

____________________________________________________________________

Fname:=AValue;

end;

procedure THuman.Setfam(const AValue: string); begin

if Ffam=AValue then exit; Ffam:=AValue;

end;

function THuman.GetData: string; begin

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

end.

program project1;

{$mode objfpc}{$H+}

uses

CRT, FileUtil, Unit1;

type

TStudent = class(THuman) private

group: string; public

function GetData: string; end;

439

5.5. Полиморфизм

____________________________________________________________________

function TStudent.GetData: string; begin

Result:= name + ' ' + fam + ', группа ' + group; end;

type

TProfessor = class(THuman) private

kafedra: string; public

function GetData: string; end;

function TProfessor.GetData: string; begin

Result:= name + ' ' + fam + ', кафедра ' + kafedra; end;

var

Student: TStudent; Professor: TProfessor; fname: string;

begin

Student:= TStudent.Create;

Professor:= TProfessor.Create;

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

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

440