Paulo,
Essa função tá declarada no início do código com outro nome... vc tem
que renomeá-la...
Tem também que criar uma varíavel na função que pega o nome da unit...
Funciona blzinha!
[]´s
Luis Alberto.
--- Em delphi-br@yahoogrupos.com.br, "plucaslazaro"
<[EMAIL PROTECTED]> escreveu
> Luis, tbem estou com este código mas nao consegui fazer o programa
de testes
> funcionar, ou melhor nao sai da compilacao dá erro justamente no
> CreateDataException(Screen.ActiveForm.Name,........
>
> Paulo
>
> ----- Original Message -----
> From: "Luis Lopes" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Thursday, October 06, 2005 6:46 PM
> Subject: [delphi-br] try...except
>
>
> > Pessoal,
> >
> > Estou fazendo um teste de tratamento de excessão,
> > utilizando uma forma e uma sugestão do nosso colega
> > Walter.
> > O problema é que a excessão é gerada, mas não passa no
> > bloco except. Alguém já viu isso acontecer?
> >
> > Ae está a unit do teste. Está preparada para gerar uma
> > excessão e a excessão está sendo gerada.
> >
> > procedure TdmPrincipal.TesteTratamentoErro(Sender:
> > TObject);
> > begin
> > try
> > with dmParametro.ClientDataSetParametro do
> > begin
> > Edit;
> > FieldByName('versao_sistema').AsString :=
> > '455444';
> > ApplyUpdates(-1);
> > end;
> > except
> > on E: Exception do
> > CreateDataException(Screen.ActiveForm.Name,
> > Screen.ActiveControl.Name,
> > '84', GetUnitName(Self),
> > 'procedure
> > TfDlgRelatorioInspecoes.BitBtn2Click(Sender:
> > TObject);',
> > E.Message,
> > E.ClassName,
> >
> > 'DMFrot.dsListaInspecoesPendentes.Dataset.Open;',
> > 'SErrorTableOpen');
> > end;
> > end;
> >
> >
> >
> > Agradeço a ajuda...
> >
> > []´s
> >
> > Luis Alberto
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > _______________________________________________________
> > Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos
emoticons e
> > muito mais. Instale agora!
> > www.yahoo.com.br/messenger/
> >
> >
> > --
> > <<<<< 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
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
>
>
>
>
>
>
> _______________________________________________________
> Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos
emoticons e muito mais. Instale agora!
> www.yahoo.com.br/messenger/
--
<<<<< 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
