Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Moverme entre archivos en un directorio (https://www.clubdelphi.com/foros/showthread.php?t=2898)

pampitasnowman 12-08-2003 01:52:15

Moverme entre archivos en un directorio
 
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 12-08-2003 02:11:26

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 13-08-2003 20:08:29

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


La franja horaria es GMT +2. Ahora son las 11:09:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi