Tirage aléatoire des éléments d'une liste

**bern59** · 28/08/2018, 17h24

Dans un edit, je voudrais lire une cellule de tableau Excel de manière aléatoire mais je ne veux pas que le même champ s'affiche 2 fois.
Aussi, j'ai eu l'idée de recourir à un StringList :
- génération d'une liste reprenant la numérotation des champs (à partir de la ligne 2),
- tirage d'un nombre aléatoire,
- affichage de champ (ligne-n° tiré).

Or, le programme me tire plusieurs fois le même n° (on pourrait penser qu'il a mis en mémoire chaque champ).
Où est l'erreur ?

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
public
    ExcelApplication1:variant;
 
 
procedure TForm1.FormShow(Sender: TObject);
var
  path:variant;
  i, NbQ:integer;
begin
   path := ExtractFilePath(Application.ExeName);  // chemin de l'application
   path := path+'\QR.xlsx';
   ExcelApplication1:= CreateOleObject('Excel.Application');
   ExcelApplication1.visible:=false;
   ExcelApplication1.Workbooks.Open(path);
   NbQ:=strtoint(string(ExcelApplication1.Cells[2,10].Value))+1; // Nb enr
   {création liste}
   Str := TStringList.Create;
   For i := 2 To NbQ Do
     begin
         Str.Add(inttostr(i));
         listbox1.Items.Add(Str.Strings[i-2]);
     end;
    //randomize;
end; 
 
 
procedure TForm1.BtnQClick(Sender: TObject);
var
 l: integer;
 tir, i:integer;
begin
  randomize;
  tir:=Random(Str.Count-1);
  edit4.Text:='tir : '+inttostr(tir);
  edit5.Text:='reste : '+inttostr(Str.Count);
  {-------MàJ de la liste-------}
  Str.Delete(tir);
  listbox1.Clear;
  For i := 1 To Str.Count-1 Do
    listbox1.Items.Add(Str.Strings[i-1]);
  {-------Affichage des valeurs-------}
  if Str.count<>0 then
     begin
       l:= strtoint(Str.Strings[tir]);
       listbox2.Items.Add(inttostr(l-1));
       edit3.Text:=string(ExcelApplication1.Cells[l,3].Value);  // l,c
     end
  else BtnQ.Enabled:=false;
end;
 
procedure TForm1.FormClose(Sender: TObject); //var CloseAction: TCloseAction);
begin
   ExcelApplication1.DisplayAlerts := False; //mess enregistrer fichier
   ExcelApplication1.quit;
   ExcelApplication1:= Unassigned;
   Str.Free;
end;

**Jipété** · 28/08/2018, 18h27

Bonsoir,

Envoyé par bern59

- génération d'une liste reprenant la numérotation des champs (à partir de la ligne 2),
- tirage d'un nombre aléatoire,
- affichage de champ (ligne-n° tiré).

Dans cette suite de trois instructions, il n'y a rien qui dit, entre 2 et 3, while déjà_tiré(n° tiré) do tire_à_nouveau.

Quand tu joues à la roulette, le même numéro peut sortir plusieurs fois, idem en jouant aux dés, etc.

**mm_71** · 28/08/2018, 18h35

J'ai du mal à suivre l'ensemble mais un truc me titille:

Code :

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

  Str.Delete(tir);

Cette fonction ne fait que supprimer une entrée selon l'index donné. Ex:
str.delete (4) va supprimer la cinquième ligne ( L'index commence à 0 ) dans la liste et c'est tout. Si il s'agit de supprimer plusieurs entrées en fonction d'une valeur donnée il faut le faire dans une boucle.

**bern59** · 28/08/2018, 19h04

Envoyé par mm_71

J'ai du mal à suivre l'ensemble mais un truc me titille:

Code :

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

  Str.Delete(tir);

Cette fonction ne fait que supprimer une entrée selon l'index donné. Ex:
str.delete (4) va supprimer la cinquième ligne ( L'index commence à 0 ) dans la liste et c'est tout. Si il s'agit de supprimer plusieurs entrées en fonction d'une valeur donnée il faut le faire dans une boucle.

ll s'agit de supprimer le n°tiré du stringlist puis de procéder à un nouveau tirage par appui sur le bouton (affichage aléatoire sur demande).

**Roland Chastain** · 28/08/2018, 20h20

Bonjour !

C'est peut-être un détail mais Randomize est mal placé. Il ne doit être appelé qu'une fois, au lancement de l'application (et non pas à chaque appui sur le bouton).

**tourlourou** · 28/08/2018, 20h49

Une technique pourrait être de peupler une liste de chaînes sans doublons (TStringList.Duplicates := dupIgnore) par des tirages aléatoires entre les bornes choisies, jusqu'à ce que le Count soit celui voulu (cad la largeur de l'intervalle, par exemple, mais pas plus !). Cette liste sera une succession aléatoire des questions de x à Nb, il suffira d'en retire le 1er ou le dernier élément à chaque fois qu'on a besoin d'une question au hasard.

Code :

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

1
2
3
4
5
6
7
8
9
10
List.Duplicates := dupIgnore;
while List.Count < NbQ-2+1 do 
 List.Add( IntToStr( RandomRange(2, NbQ) ) );
 
while List.Count > 0 do
begin
  Q := List[0];
  List.Delete(0);
  // dosomething with Q
end;

**Andnotor** · 28/08/2018, 22h09

L'erreur est ici : tir:=Random(Str.Count-1).

Ce que tu veux est récupérer le contenu d'un élément en fonction d'un nombre aléatoire. Random(Str.Count-1) est l'indice de l'élément.

Ce qui donne :

Code :

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

1
2
3
4
i   := Random(Str.Count-1);
tir := StrToInt(Str[i]);
 
Str.Delete(i);

La suite ne joue pas non plus. Str.Delete(tir) suivi d'un Str.Strings[tir] (qui pourrait simplement s'écrire str[tir]). Dans le meilleur des cas (!) la valeur est fausse puisque l'élément a déjà été supprimé (on pointe sur un autre) et dans le pire, si tir vallait Count-1, une erreur "indice hors limite" est générée. Bref, que du malheur !

**Roland Chastain** · 28/08/2018, 23h25

Bonsoir !

Envoyé par Andnotor

Bref, que du malheur !

J'ajouterai que toutes ces conversions, de nombre en chaîne, puis de de chaîne en nombre ne facilitent pas l'attention.

Autrement l'idée de la liste était bonne, mais alors pourquoi pas (par exemple) un simple tableau dynamique de nombres entiers, avec une fonction qui pioche dans le tableau et se charge de supprimer l'élément ?

Voici un exemple qui renvoie dans un ordre aléatoire les dix nombres de 0 à 9.

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
24
25
26
27
type
  TBytes = array of byte;
 
function RandomPick(var a: TBytes): byte;
var
  r: integer;
begin
  r := Random(Length(a)) + Low(a);
  result := a[r];
  a[r] := a[High(a)];
  SetLength(a, Length(a) - 1);
end;
 
var
  a: TBytes;
  i: integer;
 
begin
  Randomize;
 
  SetLength(a, 10);
 
  for i := 0 to 9 do a[i] := i;
 
  while Length(a) > 0 do
    WriteLn(RandomPick(a));
end.

"randompick.exe"
Process started (PID=7008) >>>
9
1
2
7
8
3
5
0
4
6
<<< Process finished (PID=7008). (Exit code 0)

**Roland Chastain** · 28/08/2018, 23h34

Envoyé par tourlourou

Une technique pourrait être de peupler une liste de chaînes sans doublons (TStringList.Duplicates := dupIgnore) par des tirages aléatoires entre les bornes choisies, jusqu'à ce que le Count soit celui voulu

Bonsoir tourlourou !

C'est barbare comme méthode.

**Andnotor** · 29/08/2018, 08h32

@Roland

Code :

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

1
2
3
4
5
6
7
8
9
function RandomPick(var a: TBytes): byte;
var
  r: integer;
begin
  r := Random(High(a));
  result := a[r];
  a[r] := a[High(a)];
  SetLength(a, High(a));
end;

**bern59** · 29/08/2018, 10h35

Merci à tous, j'ai rectifié mon code, en autre le Str.Delete était mal placé.

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
 
tir:=Random(Str.Count);  
 
  {-------MàJ de la liste-------}
  listbox1.Clear;
  For i := 1 To Str.Count Do    
    listbox1.Items.Add(Str.Strings[i-1]);
  {-------Affichage des valeurs-------}
  if Str.count<>0 then
     begin
       l:= strtoint(Str.Strings[tir]);
       if l=53 then showmessage('ok');
       listbox2.Items.Add(inttostr(l)); 
       Str.Delete(tir);       
       edit3.Text:=string(ExcelApplication1.Cells[l,3].Value);  // l,c
     end
  else BtnQ.Enabled:=false;

**tourlourou** · 29/08/2018, 19h56

Envoyé par Roland Chastain

C'est barbare comme méthode.

Bonsoir Roland, la barbarie a parfois du bon !

[EDIT] La preuve : http://www.grildesbarbares.com/

**Roland Chastain** · 30/08/2018, 00h21

Envoyé par tourlourou

Bonsoir Roland, la barbarie a parfois du bon !

[EDIT] La preuve : http://www.grildesbarbares.com/

Certainement.

Ah, Senlis... Quelle belle petite ville ! C'est là que j'ai fait mes classes. Je me croyais dans une histoire de Gérard de Nerval, à cause des noms de lieux.

Envoyé par Andnotor

@Roland

Code :

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

1
2
3
4
5
6
7
8
9
function RandomPick(var a: TBytes): byte;
var
  r: integer;
begin
  r := Random(High(a));
  result := a[r];
  a[r] := a[High(a)];
  SetLength(a, High(a));
end;