como destruir objeto de um componente ?

Question

Boa Tarde Galera,Estou desenvolvendo um componente nele crio um objeto quanto uma propriedade no Object Insperctor � mudada para TRUE, at� a� tudo ok, o problema � quando muda para FALSE eu tenho q de...

Massuda · Answer

Quando destruir o objeto (com Free), atribua nil � vari�vel, ja que a simples a��o de destruir o objeto n�o anula eventuasi referencias que existam a ele.

if Assigned(SeuObjeto) then begin
  SeuObjeto.Free;
  SeuObjeto := nil;
end

Voc� pode tamb�m usar FreeAndNil(), mas certifique-se que o objeto passado ao FreeAndNil() n�o � nil.

Exxpert · Answer

[quote:555b41c88e=�Massuda�]Quando destruir o objeto (com Free), atribua nil � vari�vel, ja que a simples a��o de destruir o objeto n�o anula eventuasi referencias que existam a ele.[code:1:555b41c88e]if Assigned(SeuObjeto) then begin  SeuObjeto.Free;  SeuObjeto := nil;end[/code:1:555b41c88e]Voc� pode tamb�m usar FreeAndNil(), mas certifique-se que o objeto passado ao FreeAndNil() n�o � nil.[/quote:555b41c88e]Tudo bem Massuda,Fiz como voc� disse mas continua dando erro:Acess violation at adress 400057B0 in module �rtl70.bpl�. Read of adress 6AEC8B51.Sabe oque pode estar acontendo ?Lembrando que � um componente, ao destruir o objeto ele esta trabalhando em modo design nada executavel.Obrigado.Aguardando Resposta....

Massuda · Answer

[quote:6e429bb766=�Exxpert�]Acess violation at adress 400057B0 in module �rtl70.bpl�. Read of adress 6AEC8B51.[/quote:6e429bb766]Isso indica que provavelmente que alguma parte do seu c�digo faz uso de algum objeto [b:6e429bb766]depois[/b:6e429bb766] que el foi destru�do (a mensagem de erro n�o permite dizer nada mais sobre isso)....

Exxpert · Answer

[quote:cd7cb855bf=�Massuda�][quote:cd7cb855bf=�Exxpert�]Acess violation at adress 400057B0 in module �rtl70.bpl�. Read of adress 6AEC8B51.[/quote:cd7cb855bf]Isso indica que provavelmente que alguma parte do seu c�digo faz uso de algum objeto [b:cd7cb855bf]depois[/b:cd7cb855bf] que el foi destru�do (a mensagem de erro n�o permite dizer nada mais sobre isso).[/quote:cd7cb855bf]Pela minha analise n�o era para estar ocorrendo isso, mas se voc� puder analisar o c�digo abaixo (s� nesse trecho de c�digo fa�o a utiliza��o desse objeto), talvez consiga detectar algo que eu n�o estou enxergando.[code:1:cd7cb855bf]procedure TRaveIntegrado.SetUsarDataSet(const Value: boolean);  var  rdData: TRvDataSetConnection;begin  FUsarDataSet := Value;  if FUsarDataSet then    begin      rdData := TDataSetConnection.Create(Self);      rdData.Name := Name + �Con�;      rdData.RuntimeVisibility := rtDeveloper;      rdData.DataSet := FligDataSource;    end  else    begin      if Assigned(rdData) then begin         rdData.Free;   //gera o erro que comentei aqui no post         rdData := nil;          end;    end;end;[/code:1:cd7cb855bf]Obrigado Massuda.Aguardo resposta....

Massuda · Answer

Uma das coisas estranhas nesse seu peda�o de c�digo � que rdData � uma vari�vel local (que �vive� apenas durante a execu��o da procedure) que voc� est� usando para guardar um valor que aparentemente deveria ficar �vivo� enquanto o objeto TRaveIntegrado existir. Outra coisa � declarar rdData como sendo de uma classe mas estar criando um objeto de uma classe diferente (possivelmente ancestral da classe correta). Isso costuma dar problemas dif�ceis de diagnosticar.

Massuda matou o problema era porque eu estava declarando a vari�vel naquela procedure mesmo, eu declarei ela agora como global e esta funcionando 100�. Obrigado.
Sobre declara rdData como de uma classe e criar como outra foi erro na hora de passar o c�digo aqui.

Obrigado novamente.

Exxpert · Answer

[quote:37032802ea=�Massuda�]Uma das coisas estranhas nesse seu peda�o de c�digo � que rdData � uma vari�vel local (que �vive� apenas durante a execu��o da procedure) que voc� est� usando para guardar um valor que aparentemente deveria ficar �vivo� enquanto o objeto TRaveIntegrado existir.Outra coisa � declarar rdData como sendo de uma classe mas estar criando um objeto de uma classe diferente (possivelmente ancestral da classe correta). Isso costuma dar problemas dif�ceis de diagnosticar.[/quote:37032802ea]Massuda matou o problema era porque eu estava declarando a vari�vel naquela procedure mesmo, eu declarei ela agora como global e esta funcionando 100�. Obrigado. Sobre declara rdData como de uma classe e criar como outra foi erro na hora de passar o c�digo aqui.Obrigado novamente....

F�rum como destruir objeto de um componente ? #338054