Problemas en el tratamiento de cierta excepción

[dec]

Hola,

Tengo cierto problema con el tratamiento de una determinada excepción. En este hilo podéis encontrar un archivo adjunto que contiene un sencillo componente.

En dicho componente se da el caso de tener que "cargar" en una variable de tipo "TStringList" el contenido de un archivo, presumiblemente de texto.

Se utiliza para ello el método "LoadFromFile" que ofrece la clase "TStrings". Dicho método está muy bien, pero, en caso de toparnos con un archivo en uso se produce una excepción de tipo "EFOpenError", como puede leerse:

     EFOpenError
     
     Cannot open file C:\windows\ModemLog_Creative Modem Blaster PnP.txt. 
     
     El proceso no tiene acceso al archivo porque está siendo utilizado por otro proceso

Es el caso que hasta ayer no informaba de ningún error al usuario si se producía dicha excepción (está bien, se produjera la que se produjera) pues hacía algo así:

Código Delphi [-]
    try
       archivo.LoadFromFile(FArchivos[i]);
     except
       // Bah; será que no se puede cargar...
     end;

De haberme preocupado entonces algo por el tema podría haber afinado un poco más de este modo:

Código Delphi [-]
         try
            archivo.LoadFromFile(FArchivos[i]);
          except
            on E: EFOpenError do
              MessageDlg(E.Message, mtError, [mbOk], 0);
          end;

Así es como ahora lo tengo "solucionado", pero...

Se me ha ocurrido que un mejor tratamiento de esta excepción podría ser incluir en el diálogo que se muestra al usuario los botones "Abortar, Reintentar, Omitir".

De ese modo debería actuarse conforme a la voluntad del usuario y se abortaría la búsqueda de archivos, en este caso, se reintentaría abrir el archivo que según parece está ocupado y provocó la excepción o, por último, se omitiría ese archivo "en uso" y se pasaría a otro.

Bueno. Pues el caso es que no veo manera de hacerlo. No puedo hacer lo que pensé en un principio: puesto que el "try .. except" se encuentra en un "bucle For i := 0 ..." digo, decremento el valor de "i" y a la que vuelva a pasarse por el bucle ea, vuelve a probar a cargar el archivo de marras.

Pero Delphi me dice que nainas, que de asignar ni decrementar ni incrementar el valor de la variable "i" usada en el bucle no hay que hablar. Se me ocurrió entonces usar una etiqueta "label" y ponerla encima del "try" de tal modo que pudiera llamarla desde el bloque que trata la excepción, pero, no puede ser esto, porque no es posible utilizar etiquetas de ese desde o hacia bloques "try .. except".

¿Entonces qué? ¿Le dejo al usuario el bonito mensaje de error y me olvido del diálogo con el botón "Reintantar"? Digo esto porque creo saber cómo hacer si el usuario escoge el botón "Abortar", así como el de "Omitir", pero, ¡cómo tratar el botón "Reintentar"?

Código Delphi [-]
         try
           archivo.LoadFromFile(FArchivos[i]);
         except
           on E: EFOpenError do
           begin
             case MessageDlg(E.Message, mtError, mbAbortRetryIgnore, 0) of
               3: Exit; // Abortar
               4: ;     // ¿Cómo conseguirlo?
               5: ;     // Omitir
             end;
           end;
         end;

Si necesitan más información o lo que sea que se me halla pasado y sea menester pues me lo hacéis saber y trato de ofreceros la que pueda al respecto.

Gracias de antemano por su ayuda.

[delphi.com.ar]

¿Algo así?

Código Delphi [-]
var
  i: Integer;
begin
  i := 0;
  repeat
    try
     archivo.LoadFromFile(FArchivos[i]);
     Inc(i);
    except
     on E: Exception do
     begin
       case MessageDlg(E.Message, mtError, mbAbortRetryIgnore, 0) of
         mrAbort: Break;
         mrIgnore: Inc(i);
        {mrRetry: Continue; //En este caso es absurdo }
      end;
     end;
    end;
  until i = FArchivos.Count;

[dec]

Hola,

Gracias Federico: funciona estupendamente, perfectamente, tal como se podía esperar. En cuanto eché el ojo a la palabra "repeat" me vino a la mente lo que había leído en cierto libro, del cual transcribo cuasi literalmente:

Empezado por El gran libro de Delphi 2 - ISBN: 84-267-1087-5

Sugerencia: bucles repeat

Los bucles repeat se utilizan frecuentemente en las tareas en las que el
usuario de su propio programa puede determinar si se debe ejecutar una
vez más el bucle. En las últimas líneas del cuerpo del bucle se implementa,
a través de un cuadro de mensaje, la consulta sobre si se debe ejecutar
otra vez el bucle. Si pulsa OK, se repite el bucle; en caso contrario, se
ejecuta el bloque de programa que sigue al bucle.

Habré leído ese párrafo más de una vez pero, desde luego, sin tu respuesta primero no me hubiera acordado, y, segundo, a saber si hubiera sabido implementarlo tal como puedes verlo en el archivo adjunto del hilo que acabo ahora de actualizar y que paso a leer a continuación...

Muchas gracias Federico: funciona estupendamente.

Actualización: En lugar de "E: Exception" he utilizado "E: EFOpenError", ¿se ve mejor así en este caso, verdad?

[delphi.com.ar]

Empezado por dec

Actualización: En lugar de "E: Exception" he utilizado "E: EFOpenError", ¿se ve mejor así en este caso, verdad?

Sinceramente no si si tiene sentido discriminar en el tipo de error... ¿Qué acción tomarías ante un error de otra naturaleza?

[dec]

Hola,

Pues en este caso no tenía "plan B" para otro tipo de excepción (*), pero creo que el posible "plan B", que es reintentar "abrir/cargar" el archivo, pudiera no ser del todo adecuado para otra posible excepción que no fuera "EFOpenError"... ¿No te parece?

(*) Acaso ya esto dice algo por sí mismo...