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

UptoLike

169
ПРИЛОЖЕНИЕ А
Текст модуля Figures
unit Figures;
interface
uses Graph, Crt;
type
Location = Object {Местоположение}
x, y : integer;
procedure Create(InitX, InitY : integer);
function GetX : integer;
function GetY : integer;
end;
PointPtr = ^Point;
Point = Object(Location) {Точка }
Visible : boolean;
constructor Create(InitX, InitY: integer);
destructor Destroy; virtual;
procedure Show; virtual; {Показать}
procedure Hide; virtual; {Спрятать}
function IsVisible : Boolean;
procedure MoveTo(NewX, NewY: integer); {Переместить}
end;
CirclePtr = ^Circle; {Окружность}
Circle = Object(Point)
Radius : integer;
constructor Create(InitX, InitY, InitRadius : integer);
procedure Show; virtual;
procedure Hide; virtual;
end;
implementation
{Реализация методов класса Location}
                                              ПРИЛОЖЕНИЕ А
                  Текст модуля Figures

unit Figures;
interface
uses Graph, Crt;
type
   Location = Object          {Местоположение}
     x, y : integer;
     procedure Create(InitX, InitY : integer);
     function GetX : integer;
     function GetY : integer;
   end;
   PointPtr = ^Point;
   Point = Object(Location)          {Точка      }
      Visible : boolean;
      constructor Create(InitX, InitY: integer);
      destructor Destroy; virtual;
      procedure Show; virtual; {Показать}
      procedure Hide; virtual; {Спрятать}
      function      IsVisible : Boolean;
      procedure MoveTo(NewX, NewY: integer); {Переместить}
   end;
   CirclePtr = ^Circle;        {Окружность}
   Circle = Object(Point)
      Radius : integer;
      constructor Create(InitX, InitY, InitRadius : integer);
      procedure Show; virtual;
      procedure Hide; virtual;
   end;
implementation
   {Реализация методов класса Location}



                            169