Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 17 стр.

                                  18
морфный объект может по-своему реагировать на некий общий набор
операций. В Borland Pascal именем полиморфных объектов может быть
имя указателя объектного типа или имя формального параметра объектно-
го типа.
      •Конструктор. Метод, используемый для создания нового объекта.
Обеспечивает решение двух задач: он выделяет память под новую пере-
менную − объект и гарантирует, что переменная инициализируется надле-
жащим образом. В Borland Pascal конструктор только инициализирует объ-
ект (память выделяется либо статически, либо динамически с помощью
процедуры NEW ). Кроме этого конструктор выполняет определенную ра-
боту по настройке для механизма обработки виртуальных методов. Поэто-
му каждый объектный тип, который имеет виртуальный метод, должен
иметь конструктор.
      •Деструктор. Метод, который используется для разрушения объекта
и освобождения занимаемой им памяти. Для полиморфных объектов вызов
деструктора гарантирует освобождение ровно столько байт, сколько зани-
мает объект. Деструктор − это, как правило, виртуальный метод.

     Порядок выполнения работы.
     1. Создать иерархию классов для определенной предметной области.
     Например, для предметной области ФАКУЛЬТЕТ:
     Type
     PPerson=^TPerson;
     TPerson=object
      name:string; {фамилия, имя, отчество}
      sex:boolean; {пол: true-мужской}
      age:byte;     {возраст}
      Constructor Init(name1:string;sex1:boolean;age1:byte);
      Destructor Done;virtual;
      Function GetName:string;
      Function GetSex:boolean;
      Function GetAge:byte;
      Procedure SetName(NewName:string);
      Procedure SetAge(NewAge:byte);
      Procedure Show;virtual;
     end;

     PStudent=^TStudent;
     TStudent=object(TPerson)
     year:byte;      {курс}
     rating:byte;    {рейтинг}