Buscar por:

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