Fórum Dúvida com Interfaces e Classes #1897
14/01/2009
0
Alexandre Neto
Curtir tópico
+ 0Posts
15/01/2009
Wesley Yamazack
TInterfacedObject herda diretamente de TObject.
Se quiser ter uma classe que herde de TPersistent e implemente uma interface você deve herdar de TInterfacedPersistent.
Dessa forma, sua classe ficaria assim:
TCliente = classe(TInterfacedPersistent, ICliente)
property ID...
property NOME...
end
Assim você tem uma classe que herda de TPersistent( pois a classe TInterfacedPersistent herda de TPersistent ) e que implementa uma interface.
e ainda com o controle de referencias que o IntefacedObject faz, pois o InterfacedPersistent também faz esse controle.
Att,
Wesley Yamazack
Gostei + 0
15/01/2009
Alexandre Neto
Gostei + 0
15/01/2009
Wesley Yamazack
Continue assim sua estrutura esta muito boa.
Parabéns
Att,
Wesley Yamazack
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)