Fórum Poo - Erro ao destruir dois objetos com a mesma classe com pais diferentes #421464

Olá bom dia!

Tenho um erro ao destruir um Objeto em Poo.

Ao Cria um formulario, crio os objeto Produtos = Prod e Nfentrada = Nfe;

Quando usava somente o objeto Nfe ao destruir o objeto tudo ocorria bem, mas
agora estou instanciando tbém o objeto Produtos e agora ocorre um erro ao destruir o objeto Nfe.
Veja a rotina abaixo.
Nesta situacao o erro ocorre ao destruir o objeto Nfe, se eu inverte ocorre no objeto Prod exatamente
em Proutos ao destruir Tributos e Unid.Medida.


Obs: no momento fiz uma correção e desprezei o Obj Produto instanciado em Nfentrada, mas
para saber pq acontece o erro resolvi continuar.




Veja como está minha classe Produtos:
------------------------------------------
--Tem a classe Produtos, Tributos, Unimed
--


Veja como está minha classe Nfe:
------------------------------------------
--Tem a classe Nfe, ItensNfe e ItensNfe-Produtos
--


Quando fecho o form Nfentrada o Prod.Destrua_se, Prod := nil, até ai td bem,
destru-o Tributos e Unimed ref. a Produtos.

E quando destruo o obj Nfe.Destrua_se ocorre um erro na classe Produtos ao destruir
Tributos e Unid.Medida ref. a Nfe.

Então pergunto pq isto ocorre ?

Cada objeto criado tem sua ID, o q deve ocorre neste caso, alguem saberia me dizer o q está errado com meu código?


Veja minhas classe abaixo, Produtos e Nfentrada.





Desde ja meus agradecientos a quem puder ajudar.



ANT.CARLOS/SP







===================================================================
Fecha Formulario Nota Fiscal Entrada
===================================================================
procedure TFrm_Nfe.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;

Prod.Destrua_se;
Prod := nil;

Cds_Auxiliar.EmptyDataSet;
DMNFE.Sql_PesqCST.Close;
DMTRIB.Sql_PesqTrib2.Close;
Nfe.Destrua_se;
Nfe := nil;
end;



===================================================================
CLASSE - NOTA FISCAL ENTRADA
===================================================================
Type TNfentrada = Class
private

FvTotIcms : Currency;
FvlSeguro : Currency;
FvlIcmsbt : Currency;

FItens : TNfe_Itens; //....Itens da Nota

Protected

Public

constructor Crie_Instancia;
destructor Destrua_se;

Property Itens : TNfe_Itens Read FItens Write FItens;

End;


constructor TNfentrada.Crie_Instancia;
begin
Itens := TNfe_Itens.Crie_Instancia;
Itens.Produto := TProduto.Crie_Instancia;

end;

destructor TNfentrada.Destrua_se;
begin
Itens.Produto.Destrua_se;
Itens.Destrua_se;
Itens := nil;
end;

constructor TNfe_Itens.Crie_Instancia;
begin

end;

destructor TNfe_Itens.Destrua_se;
begin

end;




===================================================================
CLASSE - PRODUTO
===================================================================
Type TProduto = Class
protected

Private
Sqlx : TSqlQuery;

FCodtrib : Integer;
FcodProd : String;
FUnimed : String;
FTrib : TTributos;
FUnid : TUnimed;


procedure Set_Produto(const Value: String);
procedure Set_Tributos(const Value: Integer);
procedure Set_Unimedida(const Value: String);

Public

constructor Crie_Instancia;
destructor Destrua_se;

Property codProd : String Read FcodProd Write Set_Produto;
Property descricao : String Read Fdescricao Write Fdescricao;
Property Unimed : String Read FUnimed Write Set_Unimedida;
Property Codtrib : Integer Read FCodtrib Write Set_Tributos;
Property Trib : TTributos Read FTrib;
Property Unid : TUnimed Read FUnid;

End;


constructor TProduto.Crie_Instancia;
begin
FTrib := TTributos.Crie_Instancia;
FUnid := TUnimed.Crie_Instancia;
end;

destructor TProduto.Destrua_se;
begin
FreeAndNil(Sqlx);
FTrib.Destrua_se;
FUnid.Destrua_se;

FTrib := nil;
FUnid := nil;
end;