Try/except/finally

[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.

[[duilioisola]]

Mira este hilo también...

Si después de un try..except te salta una excepción más, seguramente es que tu codigo depende de que se ejecute correctamente el codigo en ese bloque:

Código Delphi [-]
begin
  try
     AbriBaseDeDatos;
  except
     ShowMessage('No pude abrir la base de datos'); 
  end;
  ModificarValorTabla;
end;

En este código te saltará primero el mensaje de que "No puede abrir la base de datos" y luego uno del tipo "Database not Open".
Lo correcto sería:

Código Delphi [-]
begin
  BaseAbierta := False;
  try
     AbriBaseDeDatos;
     BaseAbierta := True;
  except
     ShowMessage('No pude abrir la base de datos');
  end;
  if (BaseAbierta) then
    ModificarValorTabla;
end;

[jsc]

ok,
la cosa me queda mas clara; gracias por los aportes
lo unico, he hecho pruebas pero todavia sigue saliendome en ocasiones el mensaje de "insuficient memory..." y lo que comentaba, me obliga a cerrar todo delphi y volver a abrir el proyecto para seguir trabajando y programando.
no se si es algo normal, si le pasa a mas gente o es solo a mi porque algo hago mal.
el caso es que si estoy programando y ejecuto el codigo para ver que tal funciona, se me da el caso que da errores que en tiempo diseño no he contemplado y tengo que modificar el codigo.Hasta aqui todo bien pero si hago cambios para corregir el problema, sigo programando y probando el codigo y se vuelven a dar fallos en más ocasiones, llega un punto en que como decia antes tengo que cerrar todo.
De ahi, mi consulta sobre este hilo, no se si era algo que programaba mal... o es algo que es normal;
si pruebo el codigo y da fallo, salta el mensaje de excepción (no el mensaje que yo tengo puesto en el EXCEPT) y he probado una vez ocurrido esto, seguir ejecutando el codigo con F7, y es entonces cuando observo que salta la excepción que tengo puesto con el TRY y pensaba que haciendo esto, de alguna manera pudirea solucionar el problema de "insuficient memory" pero no es el caso me pasa lo mismo.
hay manera de controlarlo?
espero haberme explicado

[[newtron]]

¿Es posible que durante la ejecución del programa vayas creando objetos que no vayas liberando de la memoria?

[jsc]

Empezado por newtron

¿Es posible que durante la ejecución del programa vayas creando objetos que no vayas liberando de la memoria?

es un problema que me persigue desde hace tiempo y en esta ocasión he procurado, crear los forms de la aplicación segun los vaya necesitando a ver si asi corregia el problema.cuando cierro los forms, libero el mismo...

query1.free;
action:=cafree;

los forms ya estan diseñados pero lo que hago es al ejecutar la aplicacion crear el form principal y segun pulse el boton correspondiente crear y mostrar el que necesite.
el mensaje "insuficient memory" me sale cuando abro algun form y me salta la excepcion en mas de una ocasion.el proceso exacto es:
-probar el codigo
-da errores
-hago cambios, y vuelvo a compilar
-pruebo otra vez el codigo
-da errores
-hago cambios y compilo
-da errores
...
-hago cambios y compilo
-intento probar el codigo y salta la excepcion
-cerrar la aplicación guardando o sin guardar los cambios
-salir de delphi
-abrir delphi y el proyecto
-seguir trabajando

en tiempo de ejecucion no llego a crear ningun control

[[newtron]]

A mi me da ese problema muy raramente cuando me salen muuuuuuuchos errores. A ver si va a ser que tu equipo tiene muchas cosas cargadas en memoria y deja poca disponible para el delphi.

[[duilioisola]]

Yo para cazar los "Memory Leaks" utilizo la unidad MemCheck.
La puedes bajar de aquí.

Básicamente debes ponerla dentro de tu proyecto, como primera unidad.
Lo primero que debe hacer tu aplicación es llamar a MemChk.

Código Delphi [-]
program MiPrograma;

uses
  MemCheck in '..\Utilidades\MemCheck.pas',
  Forms,
  SysUtils,
  ...;

{$R *.RES}

begin
  MemChk;

  Application.CreateForm(TDMMain, DMMain);
  Application.CreateForm(TFMMain, FMMain);

  Application.Run;
end.

Para compilar tu versión de desarrollo debes activar algunos checks en las opciones de compilacion:
Mira aquí.
No olvides activar la opción TD32 debug information en la pestaña Linker.

Ejecutas el programa y al salir te da información en un texto que debería serte útil para buscar lugares donde no liberas objetos.

Nota: Luego de agregar MemCheck al proyecto y haber tocado las opciones de compilación, deberías borrar todas las *.dcu para recompilar completamente tu proyecto.
Nota 2: Con las opciones de compilacion puestas el .exe es mucho más grande. Solo deberías utilizar estas opciones durante el desarrollo. Antes de entregar al cliente deberías quitar todas las opciones y comentar la línea //MemChk;