Bonjour à tous,
Mon problème est le suivant : J'ai 3 images dans ma base de données avec des identifiants 1,2 et 3. Mon programme doi être capable de choisir de façon aléatoires trois nombres différents parmi ces nombres et afficher les images correspondantes aux nombres tirés à partir de la base de données.
Voilà le code que j'ai écrit pour le choix aléatoire des trois nombres différents
parmi les trois nombres (identifiants) 1, 2 et 3 :
Je voudrais maintenant afficher les images correspondantes à chacun des nombres tirés à partir de ma base de données. Pour cela j'ai déposé trois TImages : TImage1, TImage2 et TImage3 sur ma fiche. Dans procédure sus-dite, j'ai essayé d'utiliser après avoir déclaré q une variable de type entier, une boucle qui me permet de rechercher l'enregistrement correspondant
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
21
22
23 Procedure TForm1.Button1Click(Sender:TObject); var Tableau : array[1..3] of integer ; i,j :integer; DejaTire : boolean ; begin Randomize;//Initiateur du generateur de nombre aléatoire { Tirage aléatoire de trois nombres differents parmi trois nombres entiers différents} for i:=1 to 3 do begin repeat Tableau[i:=Trunc(Random(3))+1; DejaTire:=false; for j:=1 to i-1 do begin DejaTire:=True; Break; end; until not DejaTire ; end; end;
à chaque identifiant tiré et d'afficher l'image correspondante :
Tout mon problème réside dans le dernier code dans la partie (Affichage de l'image trouvée).
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 for q:=1 to 3 do begin //Recherche de l'enregistrement correspondant Table1.Locate('ORDER',Tableau[q],[loCaseInsensitive]; //Rcherche de l'image correspondante à l'enregistrement Trouvé With Query1 do begin SQL.CLear; SQL.Add('SELECT IMAGE from 'Chemin complet de la table'); Open; end; // Affichage de l'image trouvée end;
En effet,
J'ai essayé de créer une variable Tableimage de 3 élements dont les composantes Tableimage[1], Tableiamge[2] et Tableiamge[3] sont des Timages. Je ne sais pas comment déclarer une telle variable Tableimage
et comment créer dynamiquement ses composantes pour en fin les utiliser
dans ma boucle. et au finish les visualiser en les assoiciant aux omposants
Timages ie TImage1, TImage2 et TImage3 déposés sur ma fiche.
Je vous prie, si quelqu'un a une idée de me faire part.
Merci à tous.
Partager