visor de archivos txt

[thelibmx]

Hola amigos del club, reciban un afectuoso saludo,

el motivo de mi post es para escuchar consejos o ideas que me puedan ayudar necesito realizar un visor de archivos txt, parecido al visor de imagenes y fax de windows(el programa con el que abre windows las imagenes) solo que en ves de que se muestre una imagen se muestren archivos de texto, ya he hecho algo con un memo y un cuadro de dialogo, lo que no se es como hacer para que seleccione una carpeta y todos los archivos txt que se encuentren ahi me los muestre con una flecha hacia atras o adelante,como si fueran las barras de navegacion, no se si haya un componente o algo, estuve pensando un poco en treeview o algo asi, solo quiero visualizar los archivos txt en un memo y que se manipulen por una barra de navegacion, lo que se me complica mas es hacer lo de la barra de navegacion, ya que los archivos individualmente los puedo ver por medio de memo.loadfromfile('nombre del archivo') lo que no se es como hacer para que con un boton de adelante o atras pueda ver el archivo siguiente asi como el visor de windows con las imagenes, espero haberme podido explicar si no pueden preguntar, estoy atento a todas las ideas, de antemano muchas gracias

[[Caral]]

Hola
Sinceramente entiendo pero no entiendo.
Que es exactamente lo que necesitas?.
Me da la impresion de que quieres ver los nombres de los archivos text, pero no estoy seguro.
Saludos

[[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,

[[Caral]]

Hola
Sacado de la ayuda de delphi, un poco modificado.
Tal vez te sirva de ejemplo, si es lo que buscas.
Saludos

[Neftali [Germán.Estévez]]

Más que mostrar los nombres de los ficheros, yo creo que se refiere a algo parecido al visualizador de ficgeros del TotalCommander o a lo que hace IrfanView con las imágenes.

Creo que utilizando el truco 82 (que devuelve la lista de ficheros de un directorio y lo que tienes del memo se puede conseguir). Te adjunto el ejemplo, porque si no creo que no se va a entender lo que digo.

Es muy básico,estaría bien ampliarlo con otras extensiones e incluso con otros tipos de ficheros (hasta llegar a algo como esto (uniersal viewer)).

[*Caro*]

Hola, yo lo haría así aunque es un poco parecido a lo que ya te han indicado. para escoger el directorio he utilizado SelectDirectory.

Saluditos