mrOk .... erro rotina

[Rodrigo Miss 1]

Boa tarde pessoal... to fazendo o seguinte:

 

procedure TfrmRelat01.btnProcClick(Sender: TObject);beginif frmGrupo = nil then	begin	frmGrupo:= TfrmGrupo.Create(Application);	frmGrupo.PreencheGrupo;	frmGrupo.btnEnviar.Visible:= true;	if frmGrupo.ShowModal = mrOk then		begin		txtIdGrupo.Text:= frmGrupo.qryID_GRUPOPRODUTOS.Text;		txtGrupo.Text:= frmGrupo.qryNOMEGRUPOPRODUTOS.Text;		frmGrupo:= nil;		frmGrupo.Free;		end;	end;end;

no Evento onClose do frmGrupo tem issu:

 

frmGrupo:= nil;Action:= caFree;

na execucao da violacao de memoria ... q sera?

[Hugo Slepicka 0]

Rodrigo, q erro de memória???0000000????posta aew a imagem pra gente ver...flw aew!

[marcio.theis 3]

Faz um teste, remove estas duas linhas:

 

frmGrupo:= nil;		frmGrupo.Free;

isto no evento do click do botão.

[Rodrigo Miss 1]

removi as duas linhas q você disse...o erro de violacao continua sendo o msm:Access violation at address 004c48a2 in module ...Read of address 0000031cto lascado ...

[marcio.theis 3]

Roda passo-a-passo, usando o F9, para ver em qual linha ele realmente gera o erro...

[Vinicius Callegaro 0]

Olá...

 

Cara, se tu tem um

 

frmGrupo:= nil;  Action:= caFree;

no teu OnClose do frmGrupo, tu não vai conseguir acessar nada nele depois de fechar o frmGrupo. Provavelmente o erro está dando nestas linhas:

 

txtIdGrupo.Text:= frmGrupo.qryID_GRUPOPRODUTOS.Text;  txtGrupo.Text:= frmGrupo.qryNOMEGRUPOPRODUTOS.Text;

Então, limpe o evento do OnClose do frmGrupo, e deixe seu código como o original do botão

procedure TfrmRelat01.btnProcClick(Sender: TObject);beginif frmGrupo = nil then	begin	frmGrupo:= TfrmGrupo.Create(Application);	frmGrupo.PreencheGrupo;	frmGrupo.btnEnviar.Visible:= true;	if frmGrupo.ShowModal = mrOk then		begin		txtIdGrupo.Text:= frmGrupo.qryID_GRUPOPRODUTOS.Text;		txtGrupo.Text:= frmGrupo.qryNOMEGRUPOPRODUTOS.Text;		frmGrupo:= nil;		frmGrupo.Free;		end;	end;end;

...que provavelmente vai funcionar ;)

[Paulo Afonso Cordeiro 0]

Cara você tbm pode faze o teste antes de fechar o form

 

 

if Assigned(frmGrupo) thenbegin frmGrupo:= nil; frmGrupo.Free;end;

 

t+

[Rodrigo Miss 1]

Boa tade a todos...

vlw a ajuda de todos

 

Vinicius Callegaro o erro ocorreu exatamente na linha q você me passo

 

axo q eu vo ter q dar o comando := nil e Action:= caFree no final do codigo msm ....

 

tenho o habito de por esse codigo no onClose pra evitar servico de todo tempo fika dando esses comandos

[Vinicius Callegaro 0]

Eu costumo utilizar o FreeAndNil. Seu código do botão ficaria assim:

 

procedure TfrmRelat01.btnProcClick(Sender: TObject);beginif frmGrupo = nil then	begin	frmGrupo:= TfrmGrupo.Create(Application);	frmGrupo.PreencheGrupo;	frmGrupo.btnEnviar.Visible:= true;	if frmGrupo.ShowModal = mrOk then		begin		txtIdGrupo.Text:= frmGrupo.qryID_GRUPOPRODUTOS.Text;		txtGrupo.Text:= frmGrupo.qryNOMEGRUPOPRODUTOS.Text;		FreeAndNil(frmGrupo);		end;	end;end;