Discussion :

[SergioMaster]

Bonjour,

j'ai dans un TListBox une combinaison de chiffres de 1-90 tirés au hazard.
J'aimerais la trier, bien sûr,

Code :

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

1
2
3
4
5
6
 
procedure TMainUnit.btnSortClick(Sender: TObject);
begin
 ListeduTirage.Sorted:=False;
 ListeduTirage.Sorted:=True;
end;

fonctionne, sauf qu'il s'agit du tri "caractère" donc 1,11,15,2,23,4,40 ...
Alors que je veux bien l'ordre numérique 1,2,4,11,15,23,40

j'ai donc tenté ceci mais sans succès (sinon je n'aurai pas ouvert la discussion )

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
 
procedure TMainUnit.btnSortClick(Sender: TObject);
var Compare: TFMXObjectSortCompare;
begin
Compare:=function(item1, item2: TFmxObject): Integer
  var n1,n2 : integer;
  begin
    n1:=StrToint(TListBoxItem(item1).ItemData.Text);
    n2:=StrToint(TListBoxItem(item2).ItemData.Text);
    if n2=n1 then result:=0
    else begin
      if n2>n1 then Result := 1
               else Result := -1;
    end;
  end;
  ListeDuTirage.Sort(Compare);
end;

Je suis sûr que c'est un truc tout bête mais il faut que je me mette au travail. Je laisse reposer ça en attendant mes pauses.

[ALWEBER]

Je pense qu'il y a confusion entre TList et TListBox
Items dans TListBox est un TSringLIst et le classement est alphabétique
Donc remplace 1 par 01, 2 par 02 et ainsi de suite.
Normalement la fonction btnSortClick ne sert à rien
01,02,04,11,15,23,40

[franckcl]

Salut Sergio,

Effectivement en passant par un TStringlist comme ceci:

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 compare(List: TStringList; Index1, Index2: Integer): Integer;
var
  n1, n2: integer;
begin
  n1 := StrToInt(List[Index1]);
  n2 := StrToInt(List[Index2]);
  result := n1 - n2;
end;
//----------------------------------------------------------------------------------
procedure TForm1.BtnChangeCellClick(Sender: TObject);
Var
 SL:TStringList;
begin
  SL := TStringList.create;
  SL.Assign(Listbox1.Items);
  SL.CustomSort(Compare);
  ListBox1.items.Assign(SL);
  SL.Free;
end;

[Charly910]

Bonjour,

sinon en passant par un tableau ?
comme ceci

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
Procedure TriABulles(Var Tab:Array Of Integer);
Var i,j,t:Integer;
Begin
  For i:=Low(Tab) To High(Tab)-1 Do For j:=i+1 To High(Tab) Do If Tab[i]>Tab[j] Then
  Begin
    t:=Tab[i];
    Tab[i]:=Tab[j];
    Tab[j]:=t;
  End;
End;
 
// Ou
 
Procedure QuickSort(Var Tab:Array Of Integer);
Var i,j,t:Integer;
  Function Partition(m,n:Integer):Integer;
  Var i,j,v:Integer;
  Begin
    v:=Tab[m];
    i:=m-1;
    j:=n+1;
    While True Do
    Begin
      Repeat Dec(j) Until Tab[j]<=v;
      Repeat Inc(i) Until Tab[i]>=v;
      If (i<j)
      Then Begin
        t:=Tab[i];
        Tab[i]:=Tab[j];
        Tab[j]:=t;
      End
      Else Begin
        Result:=j;
        Exit;
      End;
    End;
  End;

Mais tu y as surement déjà pensé !!

@+
Charly

[SergioMaster]

Bonjour,

Merci de vos réponses mais

@ALWEBER
non, il n'y a pas confusion, c'est normalement une des possibilités d'un FMX.TListBox

oui, bien sûr je pourrais faire un formatage pour obtenir 01..09 (en ce cas j'aurais juste à mettre la propriété Sorted de la TListBox à true) mais je voudrai éviter d'en passer par là.

@FranckL
un peu idem que pour Alweber, il s'agit d'un TListBox et non d'une TStringList

@Charly
Ce n'est pas tant la méthode de tri qui m'intéresse que la technique permettant de ne pas utiliser le tri par défaut dans un FMX.TListBox (j'insiste)

@tous
J'ai vu des cas où l'on pouvait ainsi trier non pas sur le texte mais sur le détail d'un TListBox ou d'un TListView "simple" (cad juste texte et détail avant de me pencher sur des tris sur des listview dynamiques)

[SergioMaster]

Du moins en partie.

Je vais continuer à regarder du côté TListbox.Sort(Compare) mais l'autre moyen qui résout mon problème est de procéder en surchargeant le tri par l'évènement OnCompare

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TMainUnit.ListeduTirageCompare(Item1, Item2: TListBoxItem;
  var Result: Integer);
var n1,n2 : integer;
begin
 n1:=StrToIntDef(Item1.ItemData.Text,0);
 n2:=StrToIntDef(Item2.ItemData.Text,0);
 if n1=n2 then result:=0  // en principe n'y passe pas
 else begin
   if n1<n2 then result:=-1
            else result:=1;
 end;
 if btnSort.RotationAngle=180 then result:=-1*result; // tri descendant
end;

Il suffit ensuite de l'utiliser ainsi

Code :

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

1
2
3
4
5
6
7
8
procedure TMainUnit.btnSortClick(Sender: TObject);
var Compare: TFMXObjectSortCompare;
    SL : TStringList;
begin
ListeduTirage.Sorted:=False;
ListeduTirage.Sorted:=True;
btnSort.RotationAngle:=btnSort.RotationAngle+180;  // pour le fun tri ascendant/descendant
end;

pour information en pj, un tri sur une liste de type listboxitemrightdetail donc sur les données text (string) et detail (numérique) avec ordre ascendat descendant pour faire bonne mesure