Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 106 стр.

ций – это явное указание имени класса в заголовке (еще маленький
нюанс – отсутствие описания переменных x, y в методах своего
класса):

  {методы класса Location}
    procedure Location.Create(InitX, InitY : integer); { инициализа-
ция координат x, y }
    begin
     x := InitX;
     y := InitY;
    end;
    function Location.GetX : integer; {возвращает координату x}
    begin
     GetX := x;
    end;
    function Location.GetY : integer; {возвращает координату y}
    begin
     GetY := y;
    end;

   Класс "Точка" (Point) наследуется от класса "Местоположение".
Таким образом, объект класса "Точка" имеет свойства x, y и методы
инициализации местоположения и получения координат. Добавим в
класс "Точка" свойство видимости (Visible), а также методы "Пока-
зать точку" (Show), "Спрятать точку" (Hide – сделать невидимой),
"Переместить точку" (MoveTo) и "Получить состояние точки"
(IsVisible – видима точка или не видима?).
   Описание класса "Точка" на языке Pascal следующее:
  type
   Point = Object(Location)   {наследование от класса Location }
     Visible : boolean;       {свойство "видимость"           }
     procedure Create(InitX, InitY: integer);
     procedure Show;           {показать                      }
     procedure Hide;           {спрятать – сделать невидимым }


                                105