La Cara Oculta de Delphi 6

40 La Cara Oculta de Delphi 6
Si la asignación a := b es correcta, a es una variable del tipo de interfaz X, y b es
un puntero de interfaz de tipo Y, entonces la interfaz Y es igual a X, o es un descendiente
directo o indirecto de X.
Tiempo de vida
Antes de seguir con las reglas de compatibilidad de tipos, programemos un pequeño
ejemplo, para mostrar un comportamiento de Delphi que puede sorprender. Inicie
una nueva aplicación, y añádale una unidad como la siguiente:
unit Animales;
interface
type
IAnimal = interface
procedure Hablar;
end;
TVaca = class(TInterfacedObject, IAnimal)
destructor Destroy; override;
procedure Hablar;
end;
implementation
uses Dialogs;
destructor TVaca.Destroy;
begin
ShowMessage('¡Me han matado!');
inherited Destroy;
end;
procedure TVaca.Hablar;
begin
ShowMessage('¡Muuu!');
end;
end.
Luego, añada un botón en la ventana principal y programe su evento OnClick de la
siguiente manera:
procedure TwndPrincipal.Button1Click(Sender: TObject);
var
I: IAnimal;
begin
I := TVaca.Create;
I.Hablar;
end;
No parece que sea muy complejo: la llamada al constructor de TVaca crea un objeto
de esa clase y devuelve una referencia al mismo. Como TVaca implementa la interfaz
IAnimal, se puede asignar esa referencia directamente en una variable de este último
tipo. Finalmente, llamamos al método Hablar a través del puntero a la interfaz. Nada