Discussion :

[cre3000]

J'aimerais en cliquant sur un bouton afficher 20 chiffres sur 70 au hasard
avec random mais avec tous des chiffres différent.

Le code suivant fonctionne mais les chiffres répétitif s'affiche

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 TForm1.Button1Click(Sender: TObject);
var
  Ra,i,a,p:integer;
begin
  listbox1.clear;
  i:=1;
  randomize;
 
  for a:=1 to 21 do
  begin
    Ra:=Random(71);   //Randomize le tableau
    if i<21 then
    begin
      if Ra<>0 then
      begin
        R[i]:=Ra;
        i:=i+1;
      end;
    end;
end;

Merci pour votre aide

[mick605]

Une idée : tu crées un tableau de 70 booleans. Au premier coup, tu fais un random(70), et tu met la case correspondante de ton tableau a true. Au coup suivant, tu fait Nb:=random(69), et tu regarde la Nbième case du tableau qui est a false.

A chaque tour, tu fais simplement ton Nb:=random(..), et tu comptes les cases a false jusqu'a arriver a Nb.

Je sais pas si c'est bien clair.

Bonne chance !

Mick605

[Dr.Who]

randomize s'appel au début du programme.

ensuite, oui un tableau de boolean comme l'a dit mike :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  Check : array[0..69] of boolean;
  Ra, n : integer;
begin
  ZeroMemory(@Check[0], 70);
 
  ListBox1.items.BeginUpdate;
  try
    ListBox1.Items.Clear;
 
    for n := 1 to 21 do
    begin
      Ra := Random(70)+1;
 
      while Check[Ra] do
        Ra := Random(70)+1;
 
      Check[Ra] := true;
 
      R[n] := Ra;
      ListBox1.Items.Add(intToStr(Ra));
    end;
  finally
    ListBox1.EndUpdate;
  end;
end;
 
 
initialization
  Randomize;
 
end.

[cre3000]

Ca fonctionne bien, merci

petite question

Que s'ignifie ListBox1.items.BeginUpdate; et ListBox1.items.endUpdate

[skywaukers]

Bonjour,

Ca fonctionne bien, merci

petite question

Que s'ignifie ListBox1.items.BeginUpdate; et ListBox1.items.endUpdate

Cela permet de ne pas rafraichir l'affichage à chaque ajout/modification des items, ce qui permet de gagner en performances et en fluidité pour l'utilisateur.

@++
Dany

[Dr.Who]

et pour expliquer complétement :

TListBox, TComboBox, TMemo, TRichEdit possèdent tout les quatres une propriétés de type TStrings.
Items pour TlistBox et TComboBox et Lines pour TMemo et TRichEdit.

les méthodes BeginUpdate et EndUpdate appartiennent à la classe TStrings.
elles permettent de ne pas appeler l'evenement Change de cette dernière et de ne l'appeler qu'une seule fois sur EndUpdate.
ce qui, comme l'as bien expliquer Skywaulker, evite de rafraichir l'objet visuel à chaque action sur le TStrings.

BeginUpdate et EndUpdate, se mettent dans un bloc Try Finally, car il faut être sur que même en cas d'erreur, on mets bien fin à la mise à jours de l'objet.

Code :

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

1
2
3
4
5
6
{TStrings class}.BeginUpdate;
try
  {TStrings class}.{Action clear/add/append/sort/delete/exchange etc.}
finally
  {TStrings class}.EndUpdate;
end;

quand un jours tu viendra à la conception de composant visuel, il sera parfois interessant surtout pour les objets "Liste" d'introduire ces méthode BeginUpdate et EndUpdate.
leurs mise en place est trés simple, puisqu'il s'agit tout simplement d'un compteur, incrémenté par BeginUpdate, décrémenté par EndUpdate (et si Zero on appel la methode de notification de changement de l'objet, Change, Changed, Invalidate etc.)

[ShaiLeTroll]

La fonction RandomFrom de l'unité Math m'a servir d'inspiration pour une fonction RandomFromExclude, qui pourrait s'appliquer à ton cas, quoi que plus lente que la solution par Booleen !

Cela regénère le tableau de possibilité restante à chaque itération

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
function RandomFromExclude(const InValues: TIntegerArray; out Value: Integer): TIntegerDynArray;
var
   Index: Integer;
   FoundExclude: Boolean;
begin
   if Length(InValues) = 0 then
      raise ERangeError.Create('Pas d''Element pour la Selection Aléatoire');
 
   Value := RandomFrom(InValues);
   SetLength(Result, Pred(Length(InValues)));
   FoundExclude := False;
   for Index := Low(InValues) to Pred(High(InValues)) do
   begin
     FoundExclude := FoundExclude or (InValues[Index] = Value);
     if FoundExclude  then
        Result[Index] := InValues[Succ(Index)]
     else
        Result[Index] := InValues[Index];
   end;
end;