Классы в делфи

[вася радугов]

Задали сделать лабораторную. Сделал все, что мог, но у меня очень много ошибок, проект не запускается.
Задание:
Создать приложение, которое взаимодействует с иерархией классов: TAnimal (базовый класс) и THuman, TDog, TCat (дочерние классы). Приложение должно не только создавать и уничтожать объекты дочерних классов, но и обмениваться сообщениями ("разговаривать") с ними.
Мой код:

unit Unit1;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Button1: TButton;
    Edit1: TEdit;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private

    { Private declarations }
   procedure Say(Animal:TAnimal);



  public
    { Public declarations }
  end;
  type

  TAnimal = class(TObject)

  private
  Name: string;

  public
  constructor Create(AName: string);
  constructor Create; overload;
  destructor Destroy;override;
  function GetName: string;
  property TheName: string read GetName;
   function TellMe: string; virtual; abstract;
  end;
THuman = class(TAnimal);
function TellMe: string; override;
function THuman.TellMe;
begin
Result := TheName;
end;

TDog = class(TAnimal);
function TellMe: string; override;
function TDog.TellMe;
begin
Result := 'Гав-Гав!'
end;}

TCat = class(TAnimal)
function TellMe: string; override;
function TCat.TellMe;
begin
Result := 'Мяу!'
end;

public
procedure SetName(AName: string);
property TheName: string read GetName write SetName;
   end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
constructor TAnimal.Create(AName: string);
begin
  Name := 'Безымянный';
end; 

 var
 Human:THuman;
 Dog:TDog;
 Cat:TCat;

function TAnimal.GetName;
begin
Result := Name;
end;

procedure TCat.SetName(AName: string);
begin
Name := AName;
end;
destructor TAnimal.Destroy;
begin
ShowMessage(Self.TheName+ ' умер!');
inherited Destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Human := THuman.Create('Петя');
SpeedButton1.Caption := Human.TheName;
Dog := TDog.Create('Бобик');
SpeedButton2.Caption := Dog.TheName;
Cat := TCat.Create('Васька');
SpeedButton3.Caption :=  Cat.TheName;
   
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Human.Destroy;
Human := THuman.Create(Edit1.Text);
SpeedButton1.Caption := Human.TheName;
end;


procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Dog.Destroy;
Dog := TDog.Create(Edit1.Text);
SpeedButton2.Caption := Dog.TheName;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
 Cat.Destroy;
 Cat := TCat.Create(Edit1.Text);
 SpeedButton3.Caption := Cat.TheName;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 Human.Free;
 Dog.Free;
 Cat.Free;

end;
 procedure TForm1.Say(Animal:TAnimal);
begin
  Label1.Caption := Animal.TellMe;
end;



procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case  WhoRg.ItemIndex of
0: Say(Human);
1: Say(Dog);
2: Say(Cat);

end;
 end;
end.

Ошибки:

[Error] Unit1.pas(31): Undeclared identifier: 'TAnimal'
[Error] Unit1.pas(40): Identifier redeclared: 'TAnimal'
[Error] Unit1.pas(47): Previous declaration of 'Create' was not marked with the 'overload' directive
[Error] Unit1.pas(53): Class type required
[Error] Unit1.pas(47): Previous declaration of 'Create' was not marked with the 'overload' directive
[Error] Unit1.pas(53): Class type required
[Error] Unit1.pas(54): Unknown directive: 'override'
[Error] Unit1.pas(55): Undeclared identifier: 'TellMe'
[Error] Unit1.pas(56): Statements not allowed in interface part
[Error] Unit1.pas(57): Undeclared identifier: 'Result'
[Error] Unit1.pas(60): Declaration expected but identifier 'TDog' found
[Error] Unit1.pas(62): Function needs result type

[Stilet]

procedure Say(Animal:TAnimal);



public
{ Public declarations }
end;
type

TAnimal = class(TObject)

Ты в процедуре Say ссылаешься на тип, который еще не описан, компилятор идет сверху вниз, и если он до нее такой класс не нашел значит программисту нужно читать мануалы и описывать класс выше.

[Utkin]

Твои ошибки, вероятно, от отсутствия этапа проектирования. Как ты представляешь классы? Покажи иерархию.

[вася радугов]

просмотрел, но все-таки не понял. подскажите как исправить

[Utkin]

Просмотрели что?

[вася радугов]

Utkin, я вообще-то плохо разбираюсь в классах и смутно представляю, как исправить свои ошибки

мне указали, где ошибка, я посмотрел, но не знаю как ее исправить

[Utkin]

Наследование ты осуществляешь верно. Но каждый класс должен иметь описание конструктора и деструктора. Это как минимум. Где же твой конструктор человека? Да и как ты кошку собрался делать?
Потом, пускай пример учебный, но порядок и дисциплина должны быть во всем. Поэтому я бы на твоем месте вынес реализацию задачи в отдельный юнит, а в данном (со окошками и кнопками) просто подключил бы его.

[вася радугов]

Вот исправил но программа не хочет работать

unit Unit1;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Button1: TButton;
    Edit1: TEdit;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    end;
     type
     TAnimal = class(TObject)

  private
  Name: string;

  public
  constructor Create(AName: string);
  constructor Create; overload;
  destructor Destroy;override;
  function GetName: string;
  property TheName: string read GetName;
   function TellMe: string; virtual; abstract;
  end;
THuman = class(TAnimal);
function TellMe: string; override;
function THuman.TellMe;
begin
Result := TheName;
end;

TDog = class(TAnimal);
function TellMe: string; override;
function TDog.TellMe;
begin
Result := 'Ãàâ-Ãàâ!'
end;}

TCat = class(TAnimal)
function TellMe: string; override;
function TCat.TellMe;
begin
Result := 'Ìÿó!'
end;

public
procedure SetName(AName: string);
property TheName: string read GetName write SetName;
   end;


  private

    { Private declarations }
   procedure Say(Animal:TAnimal);



  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
constructor TAnimal.Create(AName: string);
begin
  Name := 'Áåçûìÿííûé';
end;

 var
 Human:THuman;
 Dog:TDog;
 Cat:TCat;

function TAnimal.GetName;
begin
Result := Name;
end;

procedure TCat.SetName(AName: string);
begin
Name := AName;
end;
destructor TAnimal.Destroy;
begin
ShowMessage(Self.TheName+ ' óìåð!');
inherited Destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Human := THuman.Create('Ïåòÿ');
SpeedButton1.Caption := Human.TheName;
Dog := TDog.Create('Áîáèê');
SpeedButton2.Caption := Dog.TheName;
Cat := TCat.Create('Âàñüêà');
SpeedButton3.Caption :=  Cat.TheName;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Human.Destroy;
Human := THuman.Create(Edit1.Text);
SpeedButton1.Caption := Human.TheName;
end;


procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Dog.Destroy;
Dog := TDog.Create(Edit1.Text);
SpeedButton2.Caption := Dog.TheName;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
 Cat.Destroy;
 Cat := TCat.Create(Edit1.Text);
 SpeedButton3.Caption := Cat.TheName;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 Human.Free;
 Dog.Free;
 Cat.Free;

end;
 procedure TForm1.Say(Animal:TAnimal);
begin
  Label1.Caption := Animal.TellMe;
end;



procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case  WhoRg.ItemIndex of
0: Say(Human);
1: Say(Dog);
2: Say(Cat);

end;
 end;
end.

From Stilet: Код оформляй спецтегом по кнопке #.

Utkin, мы про подключение unit еще не проходили. вседолжно быть в одном

[Stilet]

Но каждый класс должен иметь описание конструктора и деструктора. Это как минимум.

Да ладно, прям уж так строго

программа не хочет работать

Как определил? Почему бы не пройтись отладчиком по шагам в обработчиках?

[Utkin]

Не пиши несколько постов подряд. В твоих сообщениях есть кнопка Правка, если хочешь дополнить мысль, лучше нажми на нее, она там не для красоты нарисована.

Спрашиваю второй раз где твои конструкторы человека, собаки и кошки? Каждый создаваемый тобой класс обязательно должен содержать конструктор и деструктор, написанный твоими же ручками. Покажи мне где ты их написал? Знаешь еще почему ты тонешь в коде? У тебя нет комментариев. Они не обязательны, но весьма полезны. Пиши их перед функциями и процедурами (с указанием, что каждая из них делает), а также для тех строк, которые для тебя сложны.

Да ладно, прям уж так строго

Не не строго, просто после этого память перестаёт утекать в неизвестном направлении. Особенно если твой класс содержит сложные данные, например, создает экземпляр другого класса.

Я придерживаюсь простых правил:
1. Любой созданный мой класс должен содержать явно написанный конструктор с инициализацией полей.
2. Любой созданный мой класс должен содержать явно написанный деструктор с освобождением выделенной памяти.
3. Все созданные объекты должны быть уничтожаны сразу после того как перестают быть нужными в программе.