Excepciones en Lazarus

[[Delphius]]

Empezado por Ñuño Martínez

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.

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,