visor de archivos txt

[[Delphius]]

Hola thelibmx,
¿Seleccionas los archivos desde un TOpenDialog?
Porque con el TOpenDialog valiéndonos de la opción ofAllowMultiSelect podemos seleccionar varios archivos.

Cuando uno presiona en Abrir, queda guardado en la propiedad Files el FileName de cada archivo seleccionado.
La propiedad Files del TOpenDialog es un TStrings, y como sabemos, como a cualquier TStrings podemos acceder a cada item según su posición. Teniendo esto en mente se puede al item en [0] le corresponde el primer archivo, a [Count - 1] el último. En cualquier otra parte nos podemos mover para atrás y para adelante.

¿Se entiende la idea? Cuando se pulsa en un botón de "Anterior" podemos hacer algo así:

Código Delphi [-]
if PosActual <> 0
  then begin
           dec(PosActual);
           Memo1.LoadFromFile(OpenDialog1.Files[PosActual]);
         end;

No se si funciona, lo hice al vuelo, pero creo que da una idea.

Ahora, si tienes alguna rutina que explora el directorio y extrae las rutas competas de cada archivo, puedes hacer uso de ya se un Strings, o cualquier descendiente de éste para guardar estos datos y repetir este proceso que he descrito anteriormente.

Espero haberte dado al menos un norte.

Saludos,