Discussion :

[Coussati]

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 :

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
 
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

[GoustiFruit]

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

Code :

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

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)...

[Linkin]

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

donc

Code :

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

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

devient

Code :

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

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

et

Code :

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

1
2
 
     ListBox1.Items.Add(IntToStr(a)) ;

devient

Code :

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

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

[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é ?