Tratando Exception

[Birigui 0]

Pessoal boa noite,

 

Sou novo no mundo Delphi e estou apanhando um pouco para tratar uma exception.

Bem o que está acontecendo é que ocorre uma exception mas não estou conseguindo captura-la, debugando verifiquei que o programa não entra no bloco except.

 

Segue abaixo minha procedure

procedure TDMFlexnet.ApplyUpdates(var DataSet: TClientDataSet ; TypeOperation : Byte);
var TransDesc : TTransactionDesc;
begin
   TransDesc.TransactionID  := DataSet.Tag;
   TransDesc.IsolationLevel := xilREADCOMMITTED;
   SQLConnectionFlexnet.StartTransaction(TransDesc);

   //*** Applica o Cache do ClientDataSet ***/
   try

     DataSet.ApplyUpdates(0);
     SQLConnectionFlexnet.Commit(TransDesc);
   except
      on E: Exception do
         TranslateException(E.Message, DataSet);
   end;
end;

Verifiquei que a exception que ocorre EDatabaseError é uma classe que extends Exception.

Alguém já passou por isso.

 

Grato

[fernando.fxsoft 0]

Acho que o método ApplyUpdates de um TClientDataSet não irá gerar exceções. Dê uma pesquisada sobre o método OnReconcileError.