afficher plusieurs images dans un Timage

bsr tout le monde :)
je suis débutante en delphi 7, j'aimerai savoir comment je peux afficher plusieurs images d'un répertoire dans un même Timage en utilisant un bouton suivant/précédent??? vue que j' ai récupérer la liste des images dans un combobox ..j 'ai essayé ce code mais ne marche pas ....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm7.Button3Click(Sender: TObject); var y, x:integer; chemin:string; chemin2:string;     begin y:=combobox1.items.count; listbox1.Items.Text:= inttostr(combobox1.items.count);     for x:=0 to x:=y do begin chemin:='c:\img\'+ADOTable1.FieldByName('annee').asstring+'\'+ADOTable1.FieldByName('code').asstring;   chemin2:=chemin+'\'+ combobox1.items[x];   Image1.Picture.LoadFromFile(chemin2); x:=x+1; end;

---

merci

il va d'abord falloir apprendre les bases du langage Pascal

ça n'existe pas ça en Pascal

Code:

---

1 2 3 4 5 6

for x:=0 to x:=y do begin ... x:=x+1; end;

---

en C d'accord

Code:

---

1 2 3

for (x=0; x < y; x++) { }

---

mais en Pascal on écrit ça comme ça (y - 1 car on commence à 0)

Code:

---

1 2 3 4 5

for x:= 0 to y - 1 do begin ... end;

---

Bonjour,

avec ta boucle tu charges successivement les images, mais elles ne sont pas stockées à la suite dans le TImage. En fin de boucle seule la dernière sera affichée.

Il faut que tu transformes le code du bouton en une fonction de x, qui charge l'image n°x

Ensuite tu créés 2 boutons "Suivant" et "Précédent" qui incrémente ou décrémente x et appelle la fonction (avec contrôle des bornes de x)

A+
Charly