Ver Mensaje Individual
  #1  
Antiguo 11-10-2005
OscarG OscarG is offline
Miembro
 
Registrado: sep 2005
Posts: 35
Reputación: 0
OscarG Va por buen camino
Post Interfaces...

Bueno, tengo otra serie de preguntas sobre interfaces, anteriormente tb hice unas preguntas, creo q en otra zona, pero creo q es aqui donde está mejor.

En principio tengo esta pregunta, a ver si alguien me podría contestar...

Creo este objeto...
Defino la clase
Código Delphi [-]
type
  TMusica = class(TInterfacedObject, ITratarSonido )

La cosa es q creo el objeto Musica y le asigno la interfaz de esta forma:
Código Delphi [-]
  Musica:= TMusica.Create(Self);
  IMusica:= Musica as ITratarSonido;
  comp1.setSonido(IMusica);

comp1 es un objeto cualquiera q tiene q manejar la música através de su interfaz...

Código Delphi [-]
  procedure TComponente1.setSonido(val: ITratarSonido);
  begin
    isonido:= val;
  end;

Aqui ya he hecho algo fatal, xq casca...me gustaría saber cómo hacerlo...

Gracias de antemano...
Responder Con Cita