Discussion :

[khalilmes]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Paul TOTH]

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

ça n'existe pas ça en Pascal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 for x:=0  to x:=y  do
 begin
   ...
   x:=x+1;
 end;

en C d'accord

Code c :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 for x:= 0 to y - 1 do
 begin
   ...
 end;

[Charly910]

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