Ado

[Neftali [Germán.Estévez]]

Empezado por luisgutierrezb

pues las excepciones se tratan todas igual...

Se puede ser un poco más específico...

Código Delphi [-]
Try
  GuardarPago...
Except
  on E:EOLEException do begin
    ShowMessage('No se pudo; Se ha producido un error al guardar en Base de Datos. ' + E.Message + '(' + IntToStr(E.ErrorCode) + ')');
  end
  else begin 
    ShowMessage('Error desconocido al guardar en Base de Datos.' + E.ClassName);
  end;
end;