Bonjour

Je souhaite remplir un TlistValueEditor de 36 nombres aléatoires distincts (de 1 à 36)

Randomize afin d'avoir une liste de nombres toujours différents
Ensuite 36 fois je défini un nombre provisoire je teste si il a été déja utilisé et en fonction du résultat je l'affecte ou je passe au suivant hélas y a un truc qui ne fonctionne pas je me retrouve avec des nombres en double ou en triple
Je suis dispo pour toutes info complémentaire
Merci
Eric

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
 
  Randomize;
  for lignes := 1 to 36 do begin
     affecte:=False;
     while not affecte do begin
        provisoire:=(RandomRange(1,36));
        for ii := 1 to 36 do begin
           if (liste_aleatoire.Cells[1,ii] = IntToStr(provisoire))
           then Break ;
        end;
        If Not affecte Then begin
           liste_aleatoire.Cells[1,lignes]:= IntToStr(provisoire);
           Break;
        end;
     end;
  end;