[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] 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
Re: [delphi-br] Try Except Application.Terminate
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
Re: [delphi-br] Try Except Application.Terminate
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