Pode até ser Bollasette mas a solução veio atraves da resposta do Caique na
lista NDDV que foi unica e simplesmente essa:
class procedure TFrmCadLoja.abrir;
begin
try
FrmCadLoja := TFrmCadLoja.Create(nil);
DtmCadLojas := TDtmCadLojas.Create(FrmCadLoja);
FrmCadLoja.dsLst.DataSet := DtmCadLojas.cdsLista;
FrmCadLoja.ShowModal;
finally
FreeAndNil(FrmCadLoja);
end
end;
Nao precisou explicar mais nada.....
Obrigado....
Pablo Vianini
WareHouse
(32) 3372-7495
(32) 9199-8328
To: delphi-br@yahoogrupos.com.br
From: bollase...@yahoo.com.br
Date: Wed, 27 May 2009 14:40:36 -0300
Subject: Re: [delphi-br] Stack OverFlow ao fechar DTM
Isso é mensagem é detonada devido ao estouro da capacidade
de algum campo no dataset.
----- Original Message -----
From: "Pablo Henrique Vianini Souza" <whsyst...@hotmail.com>
To: "nddv nddv" <n...@yahoogrupos.com.br>
Cc: "delphi-br delphi-br" <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, May 27, 2009 2:01 PM
Subject: [delphi-br] Stack OverFlow ao fechar DTM
Olá pessoal!!
Gostaria de saber se alguem já passou por isso, to com um erro que é o
seguinte:
Project ControleProducao.exe raised exception class EStackOverFlow with
message 'Stack overflow'.
Isso acontece quando eu dou um FreeAndNil(NomedoDataModule);
Outro detalhe é eu nao preciso fazer nada a nao ser abrir e fechar o form eu
abro os forms com class procedure aqui vai o codigo pra darem uma olhada:
class procedure TFrmCadLoja.abrir;
begin
if not Assigned(DtmCadLojas) then
DtmCadLojas := TDtmCadLojas.Create(Application);
if not Assigned(FrmCadLoja) then
FrmCadLoja := TFrmCadLoja.Create(Application);
FrmCadLoja.dsLst.DataSet := DtmCadLojas.cdsLista;
FrmCadLoja.ShowModal;
FreeAndNil(DtmCadLojas);
FreeAndNil(FrmCadLoja);
end;
Agradeço desde já, caso esteja faltando alguma informação para a analises de
vcs por favor nao exitem em pedir pois tenho certa urgencia em corrigir
isso...
Pablo Vianini
WareHouse Informática
whsyst...@hotmail.com
(32) 3372-7495
(32) 9199-8328
__________________________________________________________
Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis!
http://specials.br.msn.com/ilovemessenger/pacotes.aspx
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
_________________________________________________________________
Descubra todas as novidades do novo Internet Explorer 8
http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmail&utm_medium=Tagline&utm_campaign=IE8
[As partes desta mensagem que não continham texto foram removidas]
