Объектно-ориентированное программирование

[dzhI]

Необходимо Расширить приложение «Классы», создав новый класс TFish со свойствами и методами, аналогичными имеющимся у классов TDog и TCat.

[Stilet]

И что не получается?

TFish=class(TIkrinka)
 procedure Havaet(kogo:string)
....
end;

ну и так далее по аналогии.

[dzhI]

Вот как выглядит для Tcat и Tdog
Сначала создал базовый класс TAnimal:

 TAnimal = class(TObject)
      private
        Name: string;
      public
        function GetName: string;
        property TheName: string read GetName;
   end;

Создал три дочерних класса, ну еще для человека...

THuman = class(TAnimal);
   TDog = class(TAnimal);
   TCat = class(TAnimal)
       public
          procedure SetName(AName: string);
          property TheName: string read GetName write SetName;
   end;

Записал три переменные...

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

procedure TForm1.FormCreate(Sender: TObject);

begin
  Human := THuman.Create('Человек');
  Dog := TDog.Create('Собака');
  Cat := TCat.Create('Кот');
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.Button1Click(Sender: TObject);
begin
   Cat.TheName := Edit1.Text;
   SpeedButton3.Caption := Cat.TheName;
end;

Далее проводим разные функции типа...
function TellMe: string; override;

function THuman.TellMe;
begin
  Result := TheName;
end;
 function TDog.TellMe;
begin
  Result := 'Гав-Гав!'
end;
function TCat.TellMe;
begin
  Result := 'Мяу!'
end;

Нужно придумать методы для TFish ... есть еще варианты?!

[Stilet]

Да мало ли?
Ты что не знаеш что рыбы делать любят? Кушают, плавают, икру мечут...

[dzhI]

а еще, как записать всё в одну прогу, я только знаю как отдельные функции прописать...

[dzhI]

Так. Вообщем практически разобрался с программой, нужна помощь с выводом Tellme, вроде бы всё объявил, не могу понять, где ошибся. Также посмотрите, где есть недочеты, так как по листингу не все процедуры и функции работают. Буду благодарен апгрэйду проги!!!!

PHP код:

unit Unit1;

interface

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

type
 TFish = class(TObject)
      private
        Name: string;
      public
        function GetName: string;
        Procedure SetName(s:string);
        destructor Destroy; override;
        function TellMe: string; virtual; abstract;
        constructor Create; overload;
//        property TheName: string read GetName;
   end;
 TAkula=class(TFish)
  private

   tip:string;
 end;
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure Say(p:TFish);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var      p:TAkula;
  Form1: TForm1;

implementation

{$R *.dfm}

{ TAnimal }

function TFish.GetName: string;
begin
result:=Name;
end;

function TFish.TellMe;
 begin
   Result:= 'Tcccc!'
 end;

procedure TFish.SetName(s: string);
begin
name:=s;
end;

constructor TFish.Create;
begin
   Name := 'Безымянный';
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
p:=TAkula.Create; p.SetName('Серая');
  SpeedButton1.Caption:=p.GetName;
p:=TAkula.Create;
  SpeedButton2.Caption:=p.GetName;

end;



procedure TForm1.Button1Click(Sender: TObject);
begin
   p.SetName(Edit1.Text);
   SpeedButton1.Caption :=p.GetName;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 p.Destroy;
  SpeedButton1.Caption :=p.GetName;
end;

destructor TFish.Destroy;
begin
  ShowMessage(Self.GetName+ ' умерла!');
  inherited Destroy;
     end;

procedure TForm1.Say(Fish:TFish);
     begin
  Label1.Caption:= Fish.TellMe;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
    case  RadioGroup1.ItemIndex of
   0: Say(p);
   1: Say(p);
  end;
end;


end. 


Прикрепил также архив с программой. Буду благодарен.

[dzhI]

Неужели нет людей, которые помогут?

[Stilet]

Лови.
Почитай Тексейру и Пачеко. Они класно пишут про то как с таким ООПешить

[dzhI]

Благодарен!