Cita:
|
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;