Блог программистов

unit Unit2;
interface
Type
 //Базовый класс ТAnimal
  TAnimal=Class
  public
    constructor Create;
    function Verse: string; virtual; 

abstract;//звук издаваемый животным
  private
    Kind : string;
end;
 //Потомок класса TAnimal
  Dog=class(TAnimal)
  Public
   constructor Create;
   function Verse: string;
   function Eat: string;virtual;//Пища животного
end;
implementation
//Базовый класс TAnimal
constructor TAnimal.create;
begin
  Kind:='An Animal';
end;
//Класс Dog
constructor Dog.create;
begin
  Kind:='Dog';
end;

function Dog.Verse: string;
Begin
  Verse:='Mieow';//Звук животного
end;

function Dog.Eat: string;
Begin
  Eat:='Meat'; //Название пищи
end;