stack overflow

[Guest SalomaoCoelho]

Galera,

Estou com o seguinte problema quando fecho um formulario MDICHILD aparece o erro "stack overflow". e somente 2 tabelas estão abertas.

o comando para fechamento segue ABAIXO:

procedure TfrmAniverMes.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

frmAgenda.adoAniversario_Dia.Close;

close;

end;

como posso resolver isso?

Editado Abril 4, 2008 por Micheus
Não observação do item 3.7 das regras do forum - não digite em caixa alta

[Jhonas]

Estou com o seguinte problema quando fecho um formulario MDICHILD aparece o erro "stack overflow". e somente 2 tabelas estão abertas.

o comando para fechamento segue ABAIXO:

Com certeza é possivel que seu programa esteja com um "loop" de eventos.

Olhando o seu codigo, voce colocou detro do evento FormClose um comando close... isto faz uma chamada recursiva ao proprio evento até dar estouro de pilha ( stack overflow )

procedure TfrmAniverMes.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
   frmAgenda.adoAniversario_Dia.Close;
   //close;  chamada recursiva 
end;

outros motivos tambem podem ocasionar este tipo de erro:

Por exemplo, se dentro de um BeforePost de uma tabela o seu programa

processa alguma rotina que efetua novamente um BeforePost, sobre a mesma tabela, o programa

irá entrar em uma recursao até que o espaco da pilha do sistema se esgote.

Neste caso experimente colocar um BreakPoint em algum ponto onde voce suspeita que

possa haver alguma chamada recursiva, e execute o programa passo-a-passo (use a tecla F7 ou F8

para executar passo-a-passo).

Alguns suspeitos:

- BeforePost, AfterPost, BeforeEdit, etc.

- OnValidate de alguns campos

- OnClose

- etc., etc.

abraço