Песни о Паскале

      constructor Init(aBearing: integer; const aName, aFam : string);
      procedure Report; virtual;
      end;
      TMilitary = object (TPerson)
      mRank : string; { воинское звание }
      constructor Init(aBearing: integer; const aName, aFam,
      aRank : string);
      procedure Report; virtual;
      end;

Подытожим все изменения. В предке TPerson процедура Report стала виртуальной. В наследнике TMilitary добавлено поле mRank, а также изменены два метода: конструктор и процедура Report.

«Отселение» в отдельный модуль

Настало время реализовать методы наследника. Но прежде, чем взяться за это, совершим одно полезное дельце – переместим объект-предок TPerson в отдельный модуль. Именно так поступают профессионалы, создавая библиотеки объектов. Порядок создания программного модуля подробно изложен в главе 59, вкратце я напомню основные шаги.

Итак, создайте новый файл, перенесите туда через буфер обмена объявление типа TPerson и реализацию его методов. Объявление объекта разместите в секции INTERFACE модуля, а реализацию – в секции IMPLEMENTATION. И не забудьте объявить виртуальной процедуру Report. Дайте модулю имя PERSON и сохраните под именем «PERSON.PAS». У вас получится файл, показанный ниже. В нём объявлен ещё один тип данных – указатель на объект PPerson, но к нему обратимся позже.

unit Person; { Модуль, содержащий описание и реализацию объекта «ЧЕЛОВЕК» }
interface
type PPerson = ^TPerson; { указатель на объект «ЧЕЛОВЕК» }
      TPerson = object
      mBearing : integer; { год рождения }
      mName : string;       { имя }
      mFam : string;       { фамилия }
      constructor Init(aBearing: integer; const aName, aFam : string);
      procedure Report; virtual;
      end;
implementation
      {--- Реализация объекта «ЧЕЛОВЕК» ---}
constructor TPerson.Init(aBearing: integer; const aName, aFam : string);
begin
mBearing := aBearing;
mName := aName;
mFam := aFam;
end;
procedure TPerson.Report;
begin
Writeln(mBearing:6, 'Фамилия: '+mFam:20, ' Имя: '+mName);
end;