[[duilioisola]]

¿Conoces la sentencia repeat..until?

Código Delphi [-]
AssignFile( cArchi, cArchivo );
Reset( cArchi );

// Si no está vacío empiezo a procesarlo
if (not EOF(cArchi) then
begin
   // Repito este bloque hasta que encuentro la condición de salida
   repeat
      // Leo linea
      Readln(cArchi, cCadena);
      // ... Proceso datos de la cadena
      [...]
   until EOF(Archi) or  (nficha = StrToInt(Trim(Copy(cCadena, 1, 6)))
end;