Fórum Interfaces #450912

05/08/2013

0

Delphi

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

Responder

Posts

05/08/2013

Fabio Hansen

Alguem??
Responder

Gostei + 0

05/08/2013

Rodolpho Silva

Veja se isso funciona: 
class function TFunctions.GetInterface<T>(myObject: TObject): T;
Responder

Gostei + 0

05/08/2013

Fabio Hansen

Amigo, não intendi muito bem.
Como implementaria isso?
Responder

Gostei + 0

05/08/2013

Rodolpho Silva

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]
Responder

Gostei + 0

05/08/2013

Marco Salles

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
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar