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...