Melanger listbox

Version imprimable

28/01/2006, 11h41
spikto

Melanger listbox

Bonjour, j'ai beau chercher comment melanger une listbox, aucun mais aucun sujet la dessus. Alors je me suis dit soit c'est tous bete soit personne on en a jamais eu besoin. Bref si quelqu'un pourrai m'indiquer comment melanger une listbox

Merci d'avance pour vos réponses

si par mélanger une listbox tu entends changer aléatoirement l'ordre des éléments, c'est pas très compliqué... je vois bien un truc dans le genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 procedure Melanger(); var S: TStringList; i: integer; begin Randomize(); S := TStringList.Create(); ListBox.BeginUpdate; try while ListBox.Items.Count > 0 do begin i := Floor(rand(ListBox.Items.Count + 1)); S.Items.Add(ListBox.Items[i]); ListBox.Items.Delete(i); end; ListBox.Items.Assign(S); finally S.Free; ListBox.EndUpdate; end; end;
C'est qu'un exemple fait de tête et pas testé par contre, mais tu peux utiliser un code dans l'esprit.

28/01/2006, 11h59
spikto

OK merci de ta réponse je vais essayer
28/01/2006, 12h08
spikto

Bon j'ai tester le code il y a des erreurs je les ai toutes corrigé sauf une.

Code:

Floor(rand(ListBox.Items.Count + 1));

Cette syntaxe ne lui plait pas. Voit-tu d'où sa peut venir ?
28/01/2006, 12h13
Graffito

Bonjour,

La fonction s'appele pas "Rand" mais "Random".
28/01/2006, 12h18
spikto

Le problème n'était pas la c'est Floor qui déconne apparament
28/01/2006, 12h33
Graffito

Bonjour,

A la place de "floor(x)" utilise "round(x-0.5)".
28/01/2006, 12h42
spikto

pour enlever 0,5 il faut mettre i en real ? SI oui je me rappelle pu comment reppasser i en int pour le reste sinon les types corresponde pas. C'est pas un truc dans le genre FloattoInt
28/01/2006, 12h45
spikto

Je me suis gourrer c'est au niveau de random que sa deconne avec le - 0,5
28/01/2006, 12h47
Graffito

La fonction random donne un reel.
Sinon, pour passer d'un réel X à un entier N, j'utilise N:=round(X) et pour l'inverse X:=N ;
28/01/2006, 12h51
spikto

OK, le programme ce lance mais dès que j'active la fonction elle bug et sa marche pas. :(
Quelqu'un en a une qui marche ?
28/01/2006, 13h00
Graffito

En fait, l'erreur vient de ce que Floor(rand(ListBox.Items.Count + 1))
ou plutot (round(random(ListBox.Items.Count + 1)-0.5) peut donner ListBox.Items.Count et le max c'est ListBox.Items.Count-1, d'où un dépassement.
Solution : Remplace -0.5 par -1.5.
28/01/2006, 13h23
spikto

Nikel sa marche merci

Voila j aimerais bien faire la meme chose mais a chaque fosi que je lance le programme mon pc plante et je suis bon pour le reset. Voici le code que je met

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
54
55
56
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text)
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  S: TStringList;
  i: integer;
begin
  Randomize();
  S := TStringList.Create();
  ListBox1.Update;
  try
    while ListBox1.Items.Count > 0 do begin
      i := round(random(ListBox1.Items.Count + 1)-0.5);
      S.Add(ListBox1.Items[i]);
      ListBox1.Items.Delete(i);
    end;
      ListBox1.Items.Assign(S);
  finally
    S.Free;
    ListBox1.free;
  end;
end;
 
end.

12/02/2006, 23h09
Graffito

Bonjour,

L'instruction "ListBox1.free" supprime le composant ListBox. Pas logique ! Ca expliquerait un plantage si on clique sur un bouton ensuite.
12/02/2006, 23h19
Graffito
Et aussi,
Code:

1 2 i := round(random(ListBox1.Items.Count + 1)-0.5);
peut donner i=ListBox1.Items.Count ce qui est 1 de trop.
12/02/2006, 23h29
wauant

oki merci de ta reponse mais c'est quoi l insctruction pour liberer l update de la lis box alors car a la base c'est listbox.endupdate mais ca existe pas
13/02/2006, 18h21
Graffito

Bonjour

J'ai poas beien compris, mais pour efacer toutes les lignes de la listbox, c'est "listbox1.items.clear".