Ver Mensaje Individual
  #2  
Antiguo 25-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.934
Reputación: 27
delphi.com.ar Va por buen camino
¿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;
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita