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.