[Zet_iKs]

Всем привет! НУЖНА ВАША ПОМОЩЬ!!! В Delphi вообще не соображаю(((
Имеется задание:
Открыть модуль, не связанный с формой и поместить в него три класса:
1. Класс Animal, который содержит в разделе public объявление конструктора Create и объявление метода-функции: Verse – звук, издаваемый животным. Тип результата возвращаемого функцией – string. Метод Verse объявить виртуальным и абстрактным. В разделе private класса определить переменную Kind: string.
2. Класс Dog объявить потомком класса Animal. В разделе public этого класса объявить конструктор и методы Verse и Eat. Метод Eat типа string объявить виртуальным (пища животного).
3. Класс Cat объявить потомком класса Animal. Раздел public класса содержит те же определения, что и соответствующий раздел класса Dog.
4. В реализациях конструктора каждого класса переменной Kind присваивается имя соответствующего животного, например для класса Animal: Kind := ‘An Animal’.
5. В реализациях методов Verse возвращается звук, издаваемый животным, например Verse := «Мяу».
6. В реализациях методов Eat возвращается название пищи, которой питается соответствующее животное.
7. Задать имя модуля и имя проекта, в который этот модуль будет включен.
8. Добавить в проект форму, которой присвоить имя Animals, также задать имя модулю, связанному с формой.
9. В форме расположить три кнопки опций (компонент RadioButton) с названиями Animal, Dog, Cat; кнопкой команды (компонент Button) с названием Kind и две крупных надписи (компонент Label) . Нажатию одной из кнопок опций будет соответствовать выбор животного. При нажатии кнопки команды надписи должны отобразить звук, издаваемый животным и его пищу.
10. Определите в классе формы private-переменную MyAnimal. Запишите код для обработчика события OnCreate формы, где создается объект типа Dog, на который ссылается переменная MyAnimal.
11. В обработчиках события OnClick каждой кнопки опций записать код, который удаляет текущий объект и создает новый.
12. В обработчике события OnClick кнопки команды записать код, который будет помещать в надписи звук, издаваемый животным и его пищу. Для работы с методом Eat используйте операцию is для приведения типов.
13. Если вы все сделали правильно, при запуске приложения надписи будут отображать пищу и звук для Dog и Cat и приложение завершит работу по ошибке при выборе Animal.
Буду признателен за любую помощь! Заранее, большое спасибо откликнувшимся!!!!!!!

[NumLock]

для начала так, это уже можно компилировать:

Код:

type
  TAnimal = class
  private
    { Private declarations }
  public
    { Public declarations }
  end;

[Zet_iKs]

Классы я уже создал. В интернете поискал.

Код:

unit Unit1;

interface
   type
TAnimal=class
private
kind:string;
public
constructor Create;
function Verse: string; virtual;abstract;
end;
   TDog=class(TAnimal)
public
constructor Create;
function Verse: string; override;
function Eat: string;virtual;
end;

TCat=class(TAnimal)
public
constructor Create;
function Verse: string; override;
function Eat: string;virtual;
end;

uses
  SysUtils, Classes;

type
  TDataModule1 = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}
  constructor TAnimal.Create;
begin
kind:='An Animal';
end;
  function TDog.Verse;
begin
result:='Гав';
end;
 function TDog.eat;
begin
result:='Кость';
end;
end.

Возникли вопросы с седьмым пунктом задания - "Задать имя модуля и имя проекта, в который этот модуль будет включен" как это сделать?

[NumLock]

File - Save Project As... и File - Save As...

[Zet_iKs]

Спасибо! А как дальше? Расскажите вкратце по пунктам. Я в Delphi вообще не бум-бум. Коды еще кое-как получается, а вот в остальном проблемы(((

[Alegun]

Оффтоп: Побуду немного клавишником (пока маэстро на массу давит), а то всё на гитаре да на гитаре...

Подразумевается что у вас открыт новый проект, теперь его нужно сохранить на диске через пункт меню File - Save Project As... или сразу всё через File - Save All... Здесь можно задать имя проекта т.е. как он будет называться. По умолчанию это Project1.dpr, затем идёт модуль формы, по умолчанию это Unit1.pas. Всё. После по легенде (заданию) надо добавить новую форму File - New - Form , она появится, нужно будет задать ей имя (свойство Name в Object Inspector`е, по дефолту оно Form2) как Animals - это кличка такое будет, при любом действии обращаться к ней теперь надо именно так. Сохранить точно так же, только под ником Unit2. А опосля всего этого смело можно компонентов, прям по списку на форму эту накидывать, ну и т.д.

Вопрос: А звукиМу уже готовы?

З.Ы. Вот это особо порадовало

...При нажатии кнопки команды надписи должны отобразить звук, издаваемый животным и его пищу...

Звуки - понятно как, но отобразить пищу - энто как, что-то новенькое