Moverme entre archivos en un directorio

pampitasnowman · #1 12-08-2003

Hola! En mi aplicacion (Delphi 7)en la parte inferior del form, tengo 6 TImages chiquitos, y en el centro del form, tengo un TImage, bastante grande. En una carpeta del disco (ejemplo: Fotos) tengo alrededor de 800 archivos graficos (.Jpg´s). Al lado del primer TImage hay un boton ('Atras') y al lado del sexto ha otro boton ('adelante'). La idea es la siguiente: Tengo que iniciar la aplicacion y que se carguen 6 imagenes, en los TImages chiquitos. Con el boton adelante mostaria, 6 imagenes siguientes y con el boton atras, (la primera vez estaria deshabilitado), vuelvo a las 6 anteriores que fui mostrando. Y Asi con las 800. Haciendo clik en cada tImage chiquito, esa foto la msotaria en tamaño grande en el Timage del centro. El problema esta en que no se como moverme entre los archivos graficos, para ir mostrandolos cada vez que presiono los botones atars y adelante.
Estuve intentando con FindFirst y FindNext, pero no pude. Desde ya les agradezco, aunque sea por tomarse la molestia de leer el hilo. Si alguno me quiere ayudar, pero no entendio demasiado, que me responda, y yo intento explicarlo con mayor claridad. Saludos!

__cadetill · #2 12-08-2003

bueno, te propongo una posible solucion

Como bien dices, con FindFirst y FindNext puedes leer los 800 archivos. Pues bien, primero los lees todos y vas almacenando en un TStringList la ruta con el nombre de los mismos.

Ahora solo tienes que posicionar un puntero en ese TStringList para ir leyendo los 6 archivos siguientes (sumando 6 al puntero) o los 6 anteriores (restando 12 al puntero y leyendo 6)

Espero que la idea te sirva

pampitasnowman · #3 13-08-2003

Muchas gracias por el dato. Me andubo fenomeno! Saludos.