Valdemir,
Tente dessa forma:
try
ExecSQL;
except
on E:Exception do
begin
ShowMessage(E.Message);
Application.Terminate;
end;
end;
Nielsen
On Sat, 18 Sep 2004 10:55:55 -0300, Valdemir - PROSIS
<[EMAIL PROTECTED]> wrote:
> Pessoal tenho a seguinte estrutura
> try
> ExecSQL;
> except
> Application.Terminate;
> end;
>
> Funciona... mas gostaria de mostrar a mensagem de erro para o usuário poder ter
> ideia do problema
> não gostaria de colocar uma mensagem generia, então fiz o seguinte
>
> try
> ExecSQL;
> except
> Raise;
> Application.Terminate;
> end;
> e também
> try
> ExecSQL;
> except
> Application.Terminate;
> Raise;
> end;
> ...
> em ambos os casos, aparece a mensagem para o usuário do jeito que eu queria... mas a
> aplicaçào não é fechada.
> tentei fazer assim
> try
> ExecSQL;
> except
> try
> Raise;
> finally
> Application.Terminate;
> end
> end;
>
> mas ai da erro na hora de compilar...
> alguem poderia me ajudar?
>
> Valdemir Jacon Sanches [EMAIL PROTECTED] - [EMAIL PROTECTED]
> PROSIS Informática
> Nº ICQ : 43791272
> MSN: : [EMAIL PROTECTED]
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
