Discussion :

[spikto]

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

[jenesuispasunrobot]

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 :

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

[spikto]

OK merci de ta réponse je vais essayer

[spikto]

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

Code :

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

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

Cette syntaxe ne lui plait pas. Voit-tu d'où sa peut venir ?

[Graffito]

Bonjour,

La fonction s'appele pas "Rand" mais "Random".

[spikto]

Le problème n'était pas la c'est Floor qui déconne apparament

[Graffito]

Bonjour,

A la place de "floor(x)" utilise "round(x-0.5)".

[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

[spikto]

Je me suis gourrer c'est au niveau de random que sa deconne avec le - 0,5

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

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

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

[spikto]

Nikel sa marche merci

[wauant]

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 :

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

[Graffito]

Bonjour,

L'instruction "ListBox1.free" supprime le composant ListBox. Pas logique ! Ca expliquerait un plantage si on clique sur un bouton ensuite.

[Graffito]

Et aussi,

Code :

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

1
2
 
i := round(random(ListBox1.Items.Count + 1)-0.5);

peut donner i=ListBox1.Items.Count ce qui est 1 de trop.

[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

[Graffito]

Bonjour

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