Excepciones en Lazarus
 

Cordial saludo,

He visto en varios foros y páginas que hay un problema con el manejo de excepciones en Lazarus, ya que el bloque TRY, FINALLY no realiza su función debidamente.

Ejemplo:

Código Delphi [-]
try
  ShowMessage(IntToStr(StrToInt('a1')));
finally
  ShowMessage('Número no válido');
end;

A pesar de que está en un bloque TRY FINALLY, el programa genera el error y no continua su ejecución, dentro o fuera del entorno de Lazarus.

Solicito de su colaboración para indicarme cómo puedo tratar los errores en el código.

De antemano, gracias por su colaboración.

Para no desalentar el estudio de excepciones que te propone Casimiro Notevi, simplemente diré que el bloque try-finally no maneja excepciones ;)

LineComment Saludos

Hola cd.rafael.

Hay dos puntos, el primero es que tendrías que usar try/except para capturar la excepción. Ya Casimiro te señaló un enlace donde se trata el tema de forma excelente.

Lo segundo y que corresponde al IDE de Lazarus, es que tendrías que desactivar la opción "Notificar en excepciones de Lazarus", para lo que debes dirigirte en la barra de menu a : Herramientas -> Opciones -> Depurador -> Excepciones del lenguaje

Saludos :)

Edito: Veo que roman ya había apuntado el detalle del uso de finally mientras publicaba este mensaje

Efectivamente al cambiar por except funcionó, aunque me acuerdo que en Delphi no tenía esos inconvenientes.

Es posible que los años (sin usar Delphi) no vengan solos. :(

Muchas gracias a todos por su aporte y colaboración.

En delphi es igual. No son inconvenientes, simplemente es que except y finally tienen dos objetivos distintos.

LineComment Saludos

Pues asi parece. Va a hacer falta repasar algo. Yo también tuve mi "paro" y me costó un poco volver a subirme. La falta de práctica hizo que olvidara algunos principios básicos. Le puede pasar a cualquiera.
Parece que en programación no es como andar en bicicleta. :p

Bien dicho. Son dos cosas pensadas para cada situación. Aunque también hasta se podría combinarlos.

Lo que quizá haría falta aclarar es que esto de como se maneja la excepciones no es cosa de Delphi o de Lazarus sino más bien ya es cosa de como ha sido pensado y diseñado (y estandarizado convengamos) Object Pascal. ;) que es el realidad el verdadero lenguaje. ¡Cuando no el IDE tratando de ponerse por encima del lenguaje che! :D Mal hacemos en no corregir esto. Que mal acostumbrados estamos.

Saludos,

Precisamente hay una propuesta en estudio en el equipo de FreePascal (y si no recuerdo mal, Embarcadero también la tenía sobre la mesa) para "TRY ... FINALLY ... EXCEPT ... END;" y así no tener que anidar el "TRY ... FINALLY ... END;" dentro de "TRY ... EXCEPT ... END;". Y la verdad, es una de las pocas modificaciones del lenguaje que me parece realmente útil en los últimos años.

Interesante ^\||/

Sería genial pero me gustaría más try except finally end

El finally maneja el código que se ejecuta siempre, me parece más natural y legible

Además por la forma en que hoy los anidamos el orden es ese

Yo a esa la apoyo. A mi me rompió la cabeza un poco llegar a acostumbrarme ver esto:

Código Delphi [-]
try
  Obj := TObjecto.Create();
  try
    // Usar objeto
  finally
    // setear variable de estado
    Obj.Free;
  end;
except
   On E: ExceptionConcreta do // y otras excepiones que podría producirse por el objeto ¡o su creación misma!
   begin                                 // y convertirlas a un contexto más superior    
     // hacer algo con esto
    raise ExceptionMasConcretaDetallada.Create(...);
   end;
   // ...                                
end;

Había visto hace días algunas propuestas (más que propuestas son pedidos) en el foro de Lazarus/FreePascal un tanto fuera de norma, como pretender que el for itere de a saltos, o que el swith sea como el que posee Ada. En fin.

Saludos,