Try Except nao funciona

Delphi

31/07/2006

Olá pessoal !!

Tenho um sistema que roda com AdoQuery e Access 97. Quando coloco o codigo abaixo e forco um erro no banco, ele não sai pelo except.
Estou fazendo algo de errado ???


Try
Ds.AutoEdit:=False;
Tbl.Post;
BtnConfirma.Enabled:=False;
BtnCancela.Enabled:=False;
except
Showmessage(´Erro Inesperado´);
end;


Robsons

Robsons

Curtidas 0

Respostas

Titanius

Titanius

31/07/2006

Voce pode tentar fazer assim:

Try
Ds.AutoEdit:=False;
Tbl.Post;
BtnConfirma.Enabled:=False;
BtnCancela.Enabled:=False;
except
on Exception do
  Exception.Create(Erro Inesperado´);
end;



[]s


GOSTEI 0
Marco Salles

Marco Salles

31/07/2006

Olá pessoal !! Tenho um sistema que roda com AdoQuery e Access 97. Quando coloco o codigo abaixo e forco um erro no banco, ele não sai pelo except. Estou fazendo algo de errado ???


antes de prosseguir , a aconselhável rodar o programa pelo executável e não pelo [b:e51a42a15c]<F9>[/b:e51a42a15c] do delphi.. e veja a mensagem que voce recebe no caso do erro.


GOSTEI 0
Robsons

Robsons

31/07/2006

funcionou.....Obrigado


GOSTEI 0
POSTAR