Try/except/finally

[jsc]

Hola,
quisiera saber si podeis ayudarme a controlar posibles fallos en mi aplicación.
en tiempo diseño, constantemente me aparecen excepciones que supongo hacen que la aplicación deje cositas abiertas por ahí, y de vez en cuando, me sale un mensaje:

falta de memoria

y me obliga a guardar todos los cambios, cerrar todo delphi y volver a abrir todo para seguir trabajando

utilizo codigo del tipo

TRY EXCEPT

y cuando ejecuto el programa sin estar en modo diseño (sin tener abierto delphi), los comandos que esten puestos en EXCEPT llegan a mostrarse pero hay casos en los que me gustaria saber la manera o forma correcta que deberia programar para mostrar los mensajes correctos y que la aplicación no deje los querys... abiertos y no pueda bloquearme la aplicación... y pueda seguir trabajando; me explico mejor con un ejemplo:

TRY query1.open;
edit1.text :=query1.fieldbyname ('campo').asstring ;
EXCEPT showmessage ('no se pudo cargar los datos');
END

bueno, por ejemplo, este codigo muestro un mensaje al usuario informandole de que no se puede cargar los datos, porque la por ejemplo en el query no exista el campo "campo"
todo correcto, la cuestion es que posterior a esto, salta una excepción indicando lo mismo en ingles y para mi gusto es algo que no queda nada bien y entiendo que es algo que no tengo controlado o no lo estoy haciendo bien.
podria llegar a poner

on exception do codigo...

pero quisiera algo general para no tener que controlar todas las excepciones que podria dar.
en el EXCEPT me faltaria poner

raise

como ultimo comando?
espero haberme explicado y que podais ayudarme
utilizo

TRY

en operaciones criticas como puedan ser abrir un query, ejecutarlo para actualizar..., cargar datos una vez abierto...

[[newtron]]

Hola.

En el ejemplo que citas si puedes cerrar el query antes del mensaje

Código Delphi [-]
try
  Query1.open;
  Edit1.Text:=Query1.FieldByname('CAMPO').AsString;
except
  Query1.close;
  ShowMessage('No se pudo cargar los datos');
end;

Saludos

[jsc]

ok,
ahora no puedo probarlo
mañana comento algo al respecto
seria mejor tratar el try con la excepción correcta? con lo que pongo seria suficiente para cualquier operación que se haria con el query o tendría que tratar alguna excepción más?

TRY 
   query1.open;
   edit1.text := query1.fieldbyname ('CAMPO').asstring ;
EXCEPT On EDatabaseError do
   begin
      query1.close ;
      showmessage ('Error al cargar los datos');
   end;

esto mismo anulando

on EDatabaseError do

tendría el mismo efecto/resultado?
gracias

[Ñuño Martínez]

El "ON" es para filtrar el tipo de excepción, cuando se quiere dar una respuesta diferente para ciertos tipos. Así:

Código Delphi [-]
...
  EXCEPT
    ON Error: EDatabaseError DO
      ShowMessage ('Error en la base de datos.  ¡A saber lo que estabas buscando!');
    ON Error: EInOutError DO
      ShowMessage ('¡Error de entrada y salida!  Chungo lo tienes');
    ON Error: Exception DO
      ShowMessage ('La excepción no es de entrada y salida ni de base de datos.  Aun así, no respires tranquilo');
  END;

Además te permite acceder a los métodos de la excepción, tales como el identificador, el mensaje, etc.

También ten en cuenta que cada bloque filtrará la excepción indicada y todas aquellas de clases derivadas que no hayan sido procesadas ya. Por eso "ON Error: Exception " obtendrá todas las excepciones que no se hayan filtrado. Y por eso es importante el orden en el que se pongan, ya que se pueden ocultar si se ponen en el orden incorrecto (por ejemplo, si pones "ON Error: Exception " la primera, entonces nunca ejecutará el resto).

De todas formas, puedes anidar un "FINALLY" dentro del "EXCEPTION":

Código Delphi [-]
TRY 
  query1.open;
  TRY
    edit1.text := query1.fieldbyname ('CAMPO').asstring ;
  FINALLY
  { Esta línea se ejecuta SIEMPRE, haya o no excepción. }
    query1.close ;
  END;
EXCEPT
  On Error: EDatabaseError DO
    ShowMessage ('Error al cargar los datos: '+Error.Message);
  ON Error: Exception DO
    ShowMessage ('Excepción: '+Error.Message);
END;

[jsc]

Empezado por Ñuño Martínez

El "ON" es para filtrar el tipo de excepción, cuando se quiere dar una respuesta diferente para ciertos tipos. Así:

Código Delphi [-]
...
  EXCEPT
    ON Error: EDatabaseError DO
      ShowMessage ('Error en la base de datos.  ¡A saber lo que estabas buscando!');
    ON Error: EInOutError DO
      ShowMessage ('¡Error de entrada y salida!  Chungo lo tienes');
    ON Error: Exception DO
      ShowMessage ('La excepción no es de entrada y salida ni de base de datos.  Aun así, no respires tranquilo');
  END;

Además te permite acceder a los métodos de la excepción, tales como el identificador, el mensaje, etc.

También ten en cuenta que cada bloque filtrará la excepción indicada y todas aquellas de clases derivadas que no hayan sido procesadas ya. Por eso "ON Error: Exception " obtendrá todas las excepciones que no se hayan filtrado. Y por eso es importante el orden en el que se pongan, ya que se pueden ocultar si se ponen en el orden incorrecto (por ejemplo, si pones "ON Error: Exception " la primera, entonces nunca ejecutará el resto).

De todas formas, puedes anidar un "FINALLY" dentro del "EXCEPTION":

Código Delphi [-]
TRY 
  query1.open;
  TRY
    edit1.text := query1.fieldbyname ('CAMPO').asstring ;
  FINALLY
  { Esta línea se ejecuta SIEMPRE, haya o no excepción. }
    query1.close ;
  END;
EXCEPT
  On Error: EDatabaseError DO
    ShowMessage ('Error al cargar los datos: '+Error.Message);
  ON Error: Exception DO
    ShowMessage ('Excepción: '+Error.Message);
END;

ok,
muchas gracias me parece muy completo el aporte
un comentario;entiendo que en el segundo try(el anidado) si ocurriera alguna excepción/error al intentar

 edit1.text:= query1.fieldbyname('campo').asstring

saltaria la excepción del primer TRY sin llegar a ejecutar el FINALLY verdad?
muchas gracias

[ecfisa]

saltaria la excepción del primer TRY sin llegar a ejecutar el FINALLY verdad?

Hola jsc.

La respuesta ya te la dió Ñuño en el código que mencionás con un comentario:

Código Delphi [-]
 { Esta línea se ejecuta SIEMPRE, haya o no excepción. }

Un saludo.