Interfaces

Delphi

05/08/2013

Olá

Tenho o seguinte código:


type
   IMinhaInterface = Interface
   procedure MeuMetodo;
end;

type
   MinhaClasseImplementada = class(TObject, IMinhaInterface)
   procedure MeuMetodo;
end;

type
   MinhaClasseNormal = class(TObject)
end;


Minha dúvida é: Como eu consigo saber se minha classe implementa ou não uma interface que eu criei??

Muito Obrigado desde já.


Fabio Hansen

Fabio Hansen

Curtidas 0

Respostas

Fabio Hansen

Fabio Hansen

05/08/2013

Alguem??
GOSTEI 0
Rodolpho Silva

Rodolpho Silva

05/08/2013

Veja se isso funciona: 
class function TFunctions.GetInterface<T>(myObject: TObject): T;
GOSTEI 0
Fabio Hansen

Fabio Hansen

05/08/2013

Amigo, não intendi muito bem.
Como implementaria isso?
GOSTEI 0
Rodolpho Silva

Rodolpho Silva

05/08/2013

Perdão, faltou código....
Achei um link que pode ajudar mais...segue....[url]http://stackoverflow.com/questions/4418278/use-of-supports-function-with-generic-interface-type[/url]
GOSTEI 0
Marco Salles

Marco Salles

05/08/2013

Olá , para saber se um Objeto implementa um Interface utilize o Método Supports ( declarado na Uses SysUtils)

Obs) este método é sobrecarregado

além disso vc tem que definir um GUID para Interface para utlizar o método ( acho eu )

[]sds
GOSTEI 0
POSTAR