Já tentei algumas das respostas dadas anteriormente e o

Delphi

26/11/2003

Já tentei algumas das respostas dadas anteriormente e o problema persiste. Exception EAccessViolation in module ARCAMP.EXE at 00DB63C. Access violation at address 004DB63C in module ARCAMP.exe. Read of address 012BD834.

Por favor me ajudem já perdi muito tempo nisso.


Ruf@

Ruf@

Curtidas 0

Respostas

Rfpsatin

Rfpsatin

26/11/2003

é quase impossível dar alguma resposta apenas com estas informações.

Geralmente este tipo de erro ocorre qdo vc tenta acessar informações num form q não existe mais, tenta acessar algo q já foi liberado da memória ...

tenta colocar aqui qdo esta dando o erro p/ tentarmos analisar melhor.

abraço


GOSTEI 0
Ruf@

Ruf@

26/11/2003

ocorrendo o erro, e ele só me dá o erro ao chegar no end do begin.



procedure TFabertura.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Flogon.Visible := true;
DMArcamp.IBTCodigo.Open;
DMArcamp.IBTCodigo.Last;
DMArcamp.IBTCodigo.Edit;
DMArcamp.IBTCodigoTB_ATUAL_CONTA.AsInteger := 1;
DMArcamp.IBTCodigo.Post;
DMArcamp.IBTCodigo.Close;
Fabertura.CLOSE;
Fabertura.Free;
Application.Terminate;
action := cafree;
// Flogon.Free;
// Release;
end;


GOSTEI 0
Einstein

Einstein

26/11/2003

procedure TFabertura.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Flogon.Visible := true;
DMArcamp.IBTCodigo.Open;
DMArcamp.IBTCodigo.Last;
DMArcamp.IBTCodigo.Edit;
DMArcamp.IBTCodigoTB_ATUAL_CONTA.AsInteger := 1;
DMArcamp.IBTCodigo.Post;
DMArcamp.IBTCodigo.Close;
Fabertura.CLOSE; // tira
Fabertura.Free; // tira
Application.Terminate; // Tira essa Linjha
action := cafree; // tira
// Flogon.Free;
// Release;
end;

no clique no menu vc adiciona o seguinte código:

try
Application.CreateForm(TFabertura, Fabertura);
Fabertura.ShowModal;
finally
Fabertura.Release;
Fabertura:=nil;
end


GOSTEI 0
POSTAR