erro aquivo de projeto

Delphi

03/02/2004

MEU AQUIVO DE PROJETO POSSUI O SEGUIENTE CODIGO.
...
Application.CreateForm(TfrmqrRelDisciplina, frmqrRelDisciplina);
Application.CreateForm(TfrmLogin, frmLogin);

frmLogin.showmodal;
if frmLogin.login_ok then begin
// conecta com banco de dados
dmPrincipal.dbFAJ.Connected := True;
// roda a aplicacao
Application.Run;
end else begin
Application.Terminate;
end;

[b:2cc72eb8a8][color=red:2cc72eb8a8]Título editado pelo Moderador (AZ) - Removido: ´cansera!!!´[/color:2cc72eb8a8][/b:2cc72eb8a8]

MAS QUANDO O LOGIN E FALSO DA UM ERRO :
PROJECT RAISED EXCEPTION CLASS EACCESSVIOLATION
READ OF ADDRESS 022132B8

ALGEM PODE ME AJUDAR, JA TENTEI DE TUDO... MAS AINDA NAO ACHEI A O PROBLEMA.. GRATO!


Biriga

Biriga

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/02/2004

Colega,

Tente assim:

frmLogin.showmodal;
if frmLogin.login_ok then 
   dmPrincipal.dbFAJ.Connected := True;
else
   Application.Terminate;

Application.Run;


Terminate calls the Windows API PostQuitMessage function to perform an orderly shutdown of the application. Terminate is not immediate.



GOSTEI 0
POSTAR