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