Fórum preciso de uma dica de poo #337565

Crie um método público na sua classe através do qual você poderá setar as propriedades dos componentes citados.

o problema é que a propriedade sqlconection do sqldataset é um objeto do tipo Tsqlconection. Só que esse objeto sqlconection está criado e instanciado dentro de outra classe, como private, sem ser acessível. E na classe que contém o sqldataset, o sqldataset também é private. Posso criar métodos pra modificar as propriedades, mas essa propriedade não dá, pois são as propriedades de objetos internos private.

Crie um metodo publico

[color=green:4cff53aedf]
getSQLConection
[/color:4cff53aedf]

na sua calsse que tem o sqlConection Retornando um objeto SQLConection que seria o da classe

e na outra classe so chamaria este metodo

isso com certeza funcionaria. Mas porque eu encapsulei assim? porque eu gostaria de ligar um objeto dependente de uma classe ao objeto da outra sem ter que saber que objeto é esse. Ao invés de sqlConection e sqlDataset, poderia ser ibDatabase e ibdataset, ou adoConecton e AdoDataset. entendeu? eu nõ gostaria que essa função pública retornasse fixamente apenas um sqlconection, senão teria que ter uma função para cada tipo de objeto a retornar.

É no delphi eu não conheço algo desse jeito só se vc fizesse typeCast e no java existe Generics que poderia ser implementado só que delphi não tem, tem que ver talvez o massuda consiga responder isto

A solução, acredito eu, é definir o método público que retorna o objeto que você está buscando como Virtual.


Retirado do livro Delphi 6.

Crie uma subclasse para cada tipo de objeto, e depois sobrecarregue o método de retorno do objeto. Acho que isto resolve seu problema.

Você poderia colocar a definição da sua classe?

Ainda não codifiquei, mas seria mais ou menos assim: gostaria de criar uma classe de acesso a banco de dados que fose independente tanto do banco como da tecnologia (datasets) usados. Seria um cojunto de várias classes que descendem de uma classe em comum ou implementam uma mesma interface. Então, por exemplo, as duas primeiras classes:




Então, a pergunta é: o sqlDataset da segunda classe precisa ser ligado ao
sqlConnection da classe de cima. Todo sqlDataset precisa de um sqlConnection. Gostaria que não tivesse nada na minha classe (externamente, em sua interface) específico de tecnologia de acesso a dados, mas que ela criasse e implementasse tudo que precisasse internamente, de acordo com as propriedades setadas, arquivo de configuração, ou seja lá o que for. Mas gostaria de ligar a propriedade banco da Tacesso num objeto da Tbanco, e que quando eu fizesse isso, automaticamente ela ligasse o sqlDataset interno de TDados ao sqlConnection interno de Tbanco, sem precisar saber o tipo do banco ou que tipo de datset ela usaria para acessar (ADO, IBX, DBX, ZEOS etc)

Não gostaria de usar coisas que contrariam a poo como hack protected (ou a propria seção protected) e não gostaria de colocar as duas classes na mesma unit só pra uma classe acessar os campos private da outra porque isso também foga da POO. Se não existir jeito de fazer isso ´bunitamente´ então eu faço de qualquer outro jeito que também funcione, mas se der....

Agradeço pela ajuda ^^