Ver Mensaje Individual
  #3  
Antiguo 21-05-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 25
Delphius Va camino a la fama
Leer las 200 imagenes para luego mostrarlas de a grupos es muy ineficiente.
Lo ideal es leer de a grupos.

Yo lo veo así: necesitas dos botones (al menos): Uno para adelantar y otro para retroceder el grupo.

Si tus imágenes están guardadas en un mismo directorio y siguen una misma nomeclatura (foto1, foto2, ... foto200), puedes valerte de una mejor técnica: Almacenar dicho valor en un resourcestring:

Código Delphi [-]
resourcestring
  DIR_IMG = '\GRAPHICS\foto%d.jpg';

El %d se sustituirá por el valor 1, 2,... 200. De modo que con pasar el número correspondiente se forma el directorio completo. De este modo abrir una imagen resulta más sencillo abrir una imagen:

Código Delphi [-]
Img.Picture.LoadFromFile(Format(DIR_IMG,[i]));

Ahora, como dije... lo ideal es abrir por grupos. Con un simple "truco" podemos hacer corresponder a cada grupo de imagenes con un numero. Algo como esto:

0: Imagenes 1 al 12
1: Imágenes 13 al 24

Entonces, ahora sólo se requiere de un procedimiento que lea este valor representativo y que abra dichas imagenes del grupo. A este procedimiento lo llamas desde los botones adelante y atras. Cada vez que presiones el botón "adelante" o siguiente, incrementas el valor del grupo:

Código Delphi [-]
inc(Grupo);
MostrarImagenes(Grupo);

Y la inversa, para el otro botón:
Código Delphi [-]
dec(Grupo);
MostrarImagenes(Grupo);

El procedimiento común (MostrarImagenes lo que hará es mostrar las imágenes...

Código Delphi [-]
for j := 1 to 12 do
  begin
    // localizar el TImage correspondiente:
    Img := TImage(FindComponent('Img' + IntToStr(j)));
    // Abrir la imagen si existe
   if FileExists(Format(DIR_IMG,[Grupo + j]))
      then Img.Picture.LoadFromFile(Format(DIR_IMG,[Grupo + j]));
  end;

Espero que se entienda. No probé el código, lo puse de memoria... pero creo que puede servirte.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]

Última edición por Delphius fecha: 21-05-2007 a las 01:40:51.
Responder Con Cita