(Resolvido) Delphi e POO Duvida

[Leonardo Silva]

Ola Pessoal, estou estudando um pouco de Delphi e Orientação a Objeto, então peguei um exercicio e resolvi, faze-lo, porém estou muito perdido, poderiam me ajudar com algumas dicas?

Segue Enunciado em anexo.

e isso foi o que já fiz, não sei se esta certo, mas estou tentando aos poucos.

 

 

unit Unit1;

interface

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

{---------------Classe Transporte-----------------}
  type
    tTransporte = class
private

public
  nome : string;
  constructor Create; overload;
  constructor Create(nome : string); overload;

  procedure move (metros : Integer);
end;
{---------------Classe Carro-----------------}
type
  tCarro = class(tTransporte)
private

public
  procedure pCarro;
end;
{---------------Classe Avião-----------------}
type
  tAviao = class(tTransporte)
private

public
  procedure pAviao;
end;

implementation

{ Ttransporte }

constructor tTransporte.Create;
begin
  inherited;
end;

constructor tTransporte.Create(nome : string);
begin
  Self.nome := nome;
end;


procedure tTransporte.move(metros : Integer);
begin
  ShowMessage(  nome + 'Moveu' + inttostr(metros) + 'm.');
end;

{ tCarro }

procedure tCarro.pCarro;
begin
  Self.nome := 'Prosche 911';
  move(100);
end;

{ tAviao }

procedure tAviao.pAviao;
begin
  Self.nome := 'Boing';
  move(2500);
end;

end.

 

[Jhonas]

por enquanto esta tudo correto ...  sem erros

exemplo de OOP

https://rodrigocesarc.wordpress.com/2013/12/22/poo-delphi-parte-i-criacao-de-classe-metodo-construtor-e-destrutor/

abraço

[Leonardo Silva]

 

Boa Tarde Jonas,

Em primeiro lugar, obrigado pela resposta!

então, a minha maior dificuldade é fazer com que ele apresente o resultado, não sei como faze-lo, alguma dica para que eu possa começar?

Editado Janeiro 29, 2016 por Leonardo Silva

[Jhonas]

voce criou uma Unit certo ?   depois de ter criado a Unit voce vai salva-la no disco

 

unit UnitPOO1;  /////  TROQUEI O NOME DA UNIT PARA VOCE PODER ENTENDER MELHOR O FUNCIONAMENTO

interface

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

{---------------Classe Transporte-----------------}
  type
    tTransporte = class
private

public
  nome : string;
  constructor Create; overload;
  constructor Create(nome : string); overload;

  procedure move (metros : Integer);
end;
{---------------Classe Carro-----------------}
type
  tCarro = class(tTransporte)
private

public
  procedure pCarro;
end;
{---------------Classe Avião-----------------}
type
  tAviao = class(tTransporte)
private

public
  procedure pAviao;
end;

implementation

{ Ttransporte }

constructor tTransporte.Create;
begin
  inherited;
end;

constructor tTransporte.Create(nome : string);
begin
  Self.nome := nome;
end;

procedure tTransporte.move(metros : Integer);
begin
  ShowMessage(  nome + ' Moveu ' + inttostr(metros) + ' m.');
end;

{ tCarro }

procedure tCarro.pCarro;
begin
  Self.nome := 'Porche 911';
  move(100);
end;

{ tAviao }

procedure tAviao.pAviao;
begin
  Self.nome := 'Boing';
  move(2500);
end;

end.

===========================================================================

Para fazer isso ser executado, voce cria uma nova aplicação, onde vai ser criado um Form

no Form voce vai instanciar os objetos criados ( por exemplo em um botão )

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses UnitPOO1;   /// AQUI VOCE CHAMA A UNIT QUE VOCE CRIOU

procedure TForm1.Button1Click(Sender: TObject);
var Transp : tCarro; Transp1 : tAviao;
begin
  Transp.pCarro;
  Transp1.pAviao;
end;

end.

=========================================================

Aqui o Resultado

Porche 911 moveu 100 m

Boing moveu 2500 m

=========================================================

abraço

 

[Leonardo Silva]

Muito Obrigado Jhonas, Me ajudou muito!

 

Agora entrou bem na cabeça o conceito!