Buscar

Poliformismo em delphi

Código

Ola pessoal meu nome é ricardo
sou desenvolvedor delphi / c#

nesta diva vou mostrar como usar poliformismo em delphi


1º vamos Criar uma classe chamada MeioDeTransporte

type
  TMeioDeTrasporte = class
    function EmitirMensagem: boolean; virtual; abstract;
  end;

2º agora vamos criar as classes que iram herdar de meio de transporte podemos implementar qualquer tipo de meio de transporte;

  TCarro = class(TMeioDeTrasporte)
    function EmitirMensagem: boolean; override;
  end;
 
  TMoto = class(TMeioDeTrasporte)
    function EmitirMensagem: boolean; override;
  end;


3º agora de um ctrl + shift + c sobre as functions de TCarro, TMoto para o delphi implementalas para nós

implementação de TCarro

function TCarro.EmitirMensagem : boolean;
begin
  // vamos apenas emitir uma mensagem
  showmessage('Ligando o Carro');
  Result:= True;
end;

implementação de TCarro

function TMoto.EmitirMensagem : boolean;
begin
  // vamos apenas emitir uma mensagem
  showmessage('Ligando a Moto');
  Result:= True;
end;


coloque um radiogroup e adicione 2 items
carro e moto

e um botao

de um duplo clique no botao e implemente

procedure TForm1.Button1Click(Sender : TObject);
var
  MeioDeTransporte : TMeioDeTrasporte;
begin
  case RadioGroup1.ItemIndex of
    0 : MeioDeTransporte := TCarro.Create;
    1 : MeioDeTransporte := TMoto.Create;
  end;

  // Agora vamos chamar o evento do meio de transporte
 
  MeioDeTransporte.EmitorMensagem;

end;

E assim invocamos metodos polimorficos em delphi
uma boa pratica na orientação a Objetos.

at.
Ricardo Silva
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 09/03/10
Por: Ricardo Silva Pereira
Visualizada: 4073 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009