Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   problema bloque try... except (https://www.clubdelphi.com/foros/showthread.php?t=15413)

VRO 22-10-2004 13:41:29

problema bloque try... except
 
hola, no se si está bien formulada mi pregunta en este apartado, pero hay va. Tengo un problema con el bloque de excepcion try... except, utilizo interbase con delphi6, el codigo es el siguiente:

Código Delphi [-]
 Try
     x := strtoInt(trim(nclient.text));
   except
           Showmessage('El Nif ingresado tiene formato erróneo');
   end;

con el lo que intento es comprobar si x es un valor numérico , pero cuando no lo es da un error y pasa de hacer la intruccion except.

¿Alguien sabe porque es y como remediarlo?

Mil Gracias

delphi.com.ar 22-10-2004 13:52:03

Por lo que entiendo de tu pregunta, supongo que estas trabajando desde Delphi, con la opción Tools \ Debugger Options \ Language Exceptions \ Stop on Delphi Exceptions, esto hace que durante el Debug el IDE pare la ejecución en las excepciones producidas.

Saludos!

ruina 22-10-2004 16:00:38

Cita:

Empezado por VRO
Código Delphi [-]
Try
x := strtoInt(trim(nclient.text));
except
Showmessage('El Nif ingresado tiene formato erróneo');
end;

Este es un ejemplo claro de para qué no se deben usar las excepciones...
¿que tiene de malo el mensaje "'45674ab' no es un número entero válido"? (se puede cambiar en sysconst.pas, y hay por internet traduciones completas del fichero)

Y en cualquier caso nunca se debe silenciar una excepción con un showmessage, para cambiar el mensaje de error haz un raise de otra excepción para que se propague! ¿por qué? imagina la rutina que llama a esa se encarga de .... guardar los datos ¿como sabrá que No debe guardarlos? ¿devolviendo una variable a -1? ¡para eso se inventaron las excepciónes!

Como dice marteens ... cuando no sepas cuando usar try except .. try finally .. raise sigue esta regla:

try except: solo cuando tengas la Solución a la excepción ó
try except xxxx raise: cuando quieras hacer algo si ocurre un error (¿cancelar una transacción?) pero volviendo a levantar la excepción.

try finally: siempre que tengas un recurso que se "inicializa" y luego se cierra o libera (ficheros, creación de clases ...)

y Raise: a tutiplen, en cualquier parte y en cualquier lugar, un raise nunca esta de mas, tambíen en su variante "silenciosa", es decir abort

Bueno, que me enrrollo demasiado xD será que es viernes.

Espero que te sea util!


La franja horaria es GMT +2. Ahora son las 15:53:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi