Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Readln (https://www.clubdelphi.com/foros/showthread.php?t=6560)

esquerda21

13-01-2004 09:32:05

Readln

Estoy utilizando el Readln que lee la linea y baja. Hay alguna forma que en vez de bajar suba?

Gracias de antemeno.

Lepe	13-01-2004 12:20:18

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

esquerda21

14-01-2004 09:14:44

Gracias otra vez.

La franja horaria es GMT +2. Ahora son las 02:40:32.