Clases e Interfaces

[Jan]

Hola Virata:

Prueba de esta forma:

Código Delphi [-]
procedure Miprocedimiento(Objeto:TObject);
begin
   if Supports(Objeto,IMiInterface) then
      (Objeto as IMiInterface).HazAlgo;
end;

No lo he probado, pero creo que es así. Por cierto que la función Supports (o mejor dicho las funciones porque hay distintas variantes) están definidas en la unidad SysUtils.

Espero que te sirva.

Saludos.

P.D.: No me había dado cuenta de que era tu primer mensaje. Bienvenido al Club.