Tema: Readln
Ver Mensaje Individual
  #2  
Antiguo 13-01-2004
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Solo puedes resetear la posicion (al principio del archivo).

Si es un fichero de texto cargalo en un Tstringlist por ejemplo y ya podrás recorrerlo en el sentido que quieras:

Código:
var archivo:TStringList;
      i:integer;
begin
archivo:= TStringList.Create;
try
  archivo.LoadFromFile('c:\mio.txt');
  // recorro las lineas al revés
  for i:= archivo.count-1 downto 0 do
     linea := archivo[i];

  finally
     archivo.free;
  end;
Saludos, espero que sea viable
Responder Con Cita