Shuffle un Tlistbox ou array

Version imprimable

salut

je cherchais à très bien mélanger un Tlistbox ou un array (ils contiendront des nombres de 1 à 60)

j'ai cherché sur le forum, et les morceaux de code trouvés ne fonctionnent pas correctement ou alors le mélange n'est pas efficace

sur delphi about ou je trouve toujours tout, j'ai trouvé un code qui me semblait intéressant :

http://delphi.about.com/cs/adptips20...ltip1003_4.htm
Code:

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 Place a TButton (Button1) and a TListBox (ListBox1) and try: ~~~~~~~~~~~~~~~~~~~~~~~~~ procedure Shuffle( var aArray; aItemCount: Integer; aItemSize: Integer) ; var Inx: Integer; RandInx: Integer; SwapItem: PByteArray; A: TByteArray absolute aArray; begin if (aItemCount > 1) then begin GetMem(SwapItem, aItemSize) ; try for Inx := 0 to (aItemCount - 2) do begin RandInx := Random(aItemCount - Inx) ; Move(A[Inx * aItemSize], SwapItem^, aItemSize) ; Move(A[RandInx * aItemSize], A[Inx * aItemSize], aItemSize) ; Move(SwapItem^, A[RandInx * aItemSize], aItemSize) ; end; finally FreeMem(SwapItem, aItemSize) ; end; end; end; procedure TForm1.Button1Click(Sender: TObject) ; var a: array[1..54] of Integer; i: Shortint; begin Randomize; for i := Low(a) to High(a) do a := i; Shuffle(a, High(a), SizeOf(Integer)) ; ListBox1.Clear; for i := 1 to High(a) - 1 do ListBox1.Items.Add(IntToStr(a)) ; end; ~~~~~~~~~~~~~~~~~~~~~~~~~
mais ça ne fonctionne pas ! :(

j'ai les messages d'erreur :

[Erreur] Unit1.pas(66): Types incompatibles : 'Array' et 'Shortint'
[Erreur] Unit1.pas(70): Aucune version surchargée de 'IntToStr' ne peut être appelée avec ces arguments

donc voilà j'aimerais votre aide pou faire fonctionner ce code ou alors si vous avez une autre solution? il me faut quelque chose qui mélange bien ^^

merci ;)

J'avais trouvé ça il y a un moment, je ne sais plus où...:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Shuffle(var Tableau: TIntegerArray);
var
  i1, i2, iSwap:Integer;
begin
  for i1:= High(Tableau) downto 1 do begin
    { Get a random card in the range of those that have not yet been shuffled }
    i2 := Random(i1 + 1); { i2 = random position ( <= i1) }
    { Exchange card in position "i1" with random position }
    iSwap := Tableau[i1];
    Tableau[i1] := Tableau[i2];
    Tableau[i2] := iSwap;
  end;
end;

Par contre le i2 := Random(i1 + 1) m'étonne, j'aurais plutôt vu Random(i1)...

Pour ton erreur de compilation, il suffit de lire le message et d'aller voir les lignes concernées (66 et 70)...

donc
Code:

1 2 for i := Low(a) to High(a) do a := i;
devient
Code:

1 2 for i := Low(a) to High(a) do a[i] := i;
et
Code:

1 2 ListBox1.Items.Add(IntToStr(a)) ;
devient
Code:

1 2 ListBox1.Items.Add(IntToStr(a[i])) ;

26/12/2008, 14h27
Coussati

merci à tous les 2

GoustiFruit ton code ne fonctionne pas

Linkin c'est ok et j'aimerais continuer avce ce code ...

mais déjà je tiens à dire que je trouve bizarre que sur ce site il y ait une erreur de ce genre ...

enfin bref, ça fonctionne, mais selon moi, pas assez mélangé ...

on retrouve souvent des 26-27 ou 30-31

ça arrive trop souvent

vous avez une idée pour compléter ce code pour faire un mélange encore plus poussé ?

salut

tu as du oublier le randomize

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Shuffle(var Tableau: TIntegerArray);
var
  i1, i2, iSwap:Integer;
begin
  randomize;
  for i1:= High(Tableau) downto succ(low(Tableau)) do 
  begin
    i2 := Random(i1)+ 1;
    iSwap := Tableau[i1];
    Tableau[i1] := Tableau[i2];
    Tableau[i2] := iSwap;
  end;
end;

ou alors peut etre ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
//randomize position of list elements
procedure Shuffle(list : TList) ;
var
  randomIndex: integer;
  cnt: integer;
begin
  Randomize;
  for cnt := 0 to pred(list.Count) do
  begin
    randomIndex := Random(-cnt + list.Count) ;
    list.Exchange(cnt, cnt + randomIndex) ;
  end;
end;

@+ Phil

28/12/2008, 09h42
tourlourou

Citation:

on retrouve souvent des 26-27 ou 30-31

ça arrive trop souvent

vous avez une idée pour compléter ce code pour faire un mélange encore plus poussé ?

le hasard n'a jamais interdit des bribes de suite (ni même la suite 1..60 !)

au passage, un ch'ti code qui fonctionne sur un TList
28/12/2008, 11h38
anapurna

salut

en fait a priori tu n'as pas compris le code
celui-ci ne sert qu'a mélanger des élément existant il ne crée aucune valeur

@+ Phil
28/12/2008, 12h03
tourlourou

@ anapurna : le code ne comprend que des échanges d'indices au hasard (appels à Random), et donc rien n'interdit de retrouver des suites d'indices or pour l'exemple, les indices sont chargés dans le tableau de test comme éléments, CQFD...
Le code ne contenant pas de tests sur le contenu (ou l'indice avant mélange), rien ne peut empêcher des bribes du tableau initial de se retrouver dans le tableau final.
Style battre un jeu de cartes...

salut

je ne sais pas comment tu fait tes test mais a mon avis tu as un sérieux bug

voici un test simple :

Code:

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
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    aTableau: TIntegerDynArray;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Shuffle(var Tableau: TIntegerDynArray);
var
  i1, i2, iSwap:Integer;
begin
  randomize;
  for i1:= High(Tableau) downto succ(low(Tableau)) do
  begin
    i2 := Random(i1)+ 1;
    iSwap := Tableau[i1];
    Tableau[i1] := Tableau[i2];
    Tableau[i2] := iSwap;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 len,i1 : integer;
begin
  randomize;
  len := Round(Random(1000));
  setlength(aTableau,len);
  for i1:= low(aTableau) to High(aTableau) do
    aTableau[i1] := i1;
 
  Shuffle(aTableau);
  StringGrid1.RowCount :=High(aTableau);
  StringGrid1.ColCount := 3;
  for i1:= low(aTableau) to High(aTableau) do
  begin
    StringGrid1.Cells[1,i1] := IntToStr(i1) ;
    StringGrid1.Cells[2,i1] := IntToStr(aTableau[i1]) ;
  end;
end;

01/01/2009, 08h44
Coussati

anapurna et tourlourou merci totu d'abord pour votre aide, mais vous n'êtes pas allé trop loin ? lol

anapurna je n'arrive pas à compiler ta source TIntegerDynArray ?

à la base, j'ai un array of integer rangé de 1 à 60 et j'aimerais qu'il soit mélanger tout simplement :)
01/01/2009, 12h38
tourlourou

Citation:

mais vous n'êtes pas allé trop loin ?

tu sais, c'était fin 2008 : on devait être fatigués ! remarque, aujourd'hui...

Citation:

à la base, j'ai un array of integer rangé de 1 à 60 et j'aimerais qu'il soit mélangé tout simplement

le code d'anapurna fonctionne parfaitement (déclare type TIntegerDynArray=array of integer;)

et s'il arrive des "suites" comme 19,18 ou 51,52 c'est non seulement normal, mais souhaitable si ça doit être mélangé au hasard.

ne pas vouloir que ça se produise revient à restreindre le hasard et nécessite je pense un codage hyperlourd
01/01/2009, 17h50
sjrd

Attention !

Il ne faut surtout pas mettre Randomize dans la fonction de mélange. Il faut appeler cette procédure une et une seule fois dans le programme, par exemple au début.

C'est en partie la cause de suites "trop souvent répétées".
01/01/2009, 18h10
Coussati

Citation:

Envoyé par sjrd

Attention !

Il ne faut surtout pas mettre Randomize dans la fonction de mélange. Il faut appeler cette procédure une et une seule fois dans le programme, par exemple au début.

C'est en partie la cause de suites "trop souvent répétées".

je n'ai pas trop compris ? pour la procédure de mélange, on a besoin de l'appeler plusieurs fois non ?

en tout cas dans le programme j'ai besoin de mélanger qu'une seule fois, à l'exécution ...

pour le code de anapurna je n'ai toujours pas réussis, je suis novice certes, mais je n'ai pas réussis à trouver TIntegerDynArray :(

autre question pourquoi utilise un TStringGrid ? alors que le résultat, je le veut dans un array

autres question bidon lol : vous pouvez me rappeler dans quel ongle le TStringGrid se trouve ? :p (je ne l'utilise pas, mais jlavais déjà croisé lol)
01/01/2009, 18h52
Cl@udius

Salut

Citation:

Envoyé par Coussati

je n'ai pas trop compris ? pour la procédure de mélange, on a besoin de l'appeler plusieurs fois non ?

Oui bien sûr. ;) sjrd fait référence à l'appel de randomize et doit être effectué une et une seule fois.

Dans la section initialization de ta fiche principale par exemple.

@+ Claudius

Citation:

le code d'anapurna fonctionne parfaitement (déclare type TIntegerDynArray=array of integer; )

en adaptant à ton code et en conservant l'affichage après tri dans ListBox1 :

Code:

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
type TMyArray=array[1..54] of Integer;
 
procedure Shuffle(var Tableau: TMyArray);
var
  i1, i2, iSwap:Integer;
begin
  randomize;
  for i1:= High(Tableau) downto succ(low(Tableau)) do
  begin
    i2 := Random(i1)+ 1;
    iSwap := Tableau[i1];
    Tableau[i1] := Tableau[i2];
    Tableau[i2] := iSwap;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject) ;
var
   a: TMyArray;
   i: Shortint;
begin
   for i := Low(a) to High(a) do a[i] := i;
   Shuffle(a) ;
 
  ListBox1.Clear;
  for i := Low(a) to High(a)  
  do ListBox1.Items.Add(IntToStr(a[i])) ;
end;
 
// à la fin de l'unité :
 
initialization
  Randomize; // sera appelé une seule fois (amorce le générateur pseudo-aléatoire)
 
finalization
 
end.

01/01/2009, 23h00
Coussati

merci les gars ça l'air de fonctionner vous avez assuré ^^

je met le tag résolu, et j'en profite pour faire une tite pub pour un autre prob un peu plus délicat :(

http://www.developpez.net/forums/d66...el-tscrollbox/