Cadê a implementação do método BebeAgua() na classe TCiclista?
Sds.

>From: Dirceu Vasson Jr <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: Grupo Delphi <delphi-br@yahoogrupos.com.br>
>Subject: [delphi-br] POO - Interfaces
>Date: Fri, 4 Aug 2006 17:14:04 +0000 (GMT)
>
>Ola a todos
>
>To tentando fazer alguns testes com interfaces mas não sei aonde estou 
>errando. Procurei algum tipo de código que me esclarecesse o BE-A-BA mas 
>encontrei.
>
>Peço a colaboração para, que após analisar o código abaixo, informar aonde 
>está o erro.
>
>Grato
>Dirceu
>
>
>type
>   TForm1 = class(TForm)
>...
>
>   IAtleta = interface
>     procedure BebeAgua;
>   end;
>
>   TAtleta = class(TInterfacedObject, IAtleta)
>   private
>   public
>     procedure BebeAgua;
>   end;
>
>   ICiclista = interface
>     procedure Pedala;
>   end;
>
>   TCiclista = class(TInterfacedObject, ICiclista)
>   private
>   public
>     procedure Pedala;
>   end;
>
>   TTriatleta = class(TInterfacedObject, IAtleta, ICiclista)
>   private
>   public
>     procedure BebeAgua;
>     procedure Pedala;
>   end;
>
>var
>   Form1: TForm1;
>
>implementation
>
>{$R *.dfm}
>
>{ TAtleta }
>
>procedure TAtleta.BebeAgua;
>begin
>   ShowMessage('Atleta bebendo água...');
>end;
>
>{ TCiclista }
>
>procedure TCiclista.Pedala;
>begin
>   ShowMessage('Ciclista pedalando...');
>end;
>
>
>
>---------------------------------
>  Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu 
>celular. Registre seu aparelho agora!
>
>[As partes desta mensagem que não continham texto foram removidas]
>

_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a