recorrer bucle de imagenes

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

Empezado por strange-forget

...y todo consejo que me puedan dar a buen seguro me servira de gran ayuda

Hombre yo te doy uno:
"Vida sana y dieta mediterránea"

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

Estaría bien, como dice Oscarac, que nos dieras algo más de información sobre lo que necesitas.
¿No te funciona? ¿Tienes algun error? ¿Cual? ¿Te falla al compilar o al ejecutar?
¿Qué quieres hacer con ese bucle?

Si saber más lo único que se me ocurre es que la barra / la cambies por una así \

Por lo demás ya dirás en qué podemos ayudarte.

[strange-forget]

En resumen quiero hacer esto:

for i:0;i<3;i++{

instruccion de imagenes
cont=cont+1;

Pero el for en delphi funciona de manera diferente. Y solo me muestra la última imagen. Cuando lo que quiero es que me de por pantalla las tres antes de acabar el bucle.

Es decir que al pulsar el boton, me recorra el timage con las tres imagenes. Luego validare con otro bitbtn la imagen deseada.

[strange-forget]

Empezado por strange-forget

En resumen quiero hacer esto:

for i:0;i<3;i++{

instruccion de imagenes
cont=cont+1;

Pero el for en delphi funciona de manera diferente. Y solo me muestra la última imagen. Cuando lo que quiero es que me de por pantalla las tres antes de acabar el bucle.

Es decir que al pulsar el boton, me recorra el timage con las tres imagenes(una distinta por cada click). Luego validare con otro bitbtn la imagen deseada.

No tengo error de compilación. El problema es que el timage solo me muestra la última imagen que ha recorrido el bucle antes de acabarse.

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

El problema puede ser que cargas las tres imágenes tan rápido que sólo te da tiempo de ver la última.
Prueba con esto, para dar tiempo a que se vean:

Código Delphi [-]
for num := 1 to 3 do begin
  image1.Picture.LoadFromFile('imatges/' + inttostr(num) +'.jpg');
  Application.ProcessMessages;
  image1.repaint;
  sleep(3000);
end;

[strange-forget]

Muy útil lo descrito Neftali, me ha sido de buena utilidad.

Ya resolvi el problema. Era muy sencillo, pero lo estaba enfocando mal.

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if (num < 3) then
begin
num:=num+1;
image1.Picture.LoadFromFile('imatges/' + inttostr(num) +'.jpg');
end;
if (num=3) then
begin
num:=0;
end;
end;