try
  ExecSql;
execpt
  on e: exception do
  begin
    showmessage(e.message);
    Application.Terminate;
  end;
end;
  ----- Original Message ----- 
  From: Valdemir - PROSIS 
  To: [EMAIL PROTECTED] 
  Sent: Saturday, September 18, 2004 10:55 AM
  Subject: [delphi-br] Try Except Application.Terminate


  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]  
       


  [As partes desta mensagem que não continham texto foram removidas]



  -- 
  <<<<< 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]



        Yahoo! Grupos, um serviço oferecido por: 
          


------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
      
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
      
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< 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

 



Responder a