Tri dans un TListBox

Version imprimable

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:

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:

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 :arf: il faut que je me mette au travail. Je laisse reposer ça en attendant mes pauses.

28/04/2020, 08h28
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

Salut Sergio,

Effectivement en passant par un TStringlist comme ceci:

Code:

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;

Bonjour,

sinon en passant par un tableau ?
comme ceci

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

28/04/2020, 10h48
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)

1 pièce(s) jointe(s)

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

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:

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

28/04/2020, 17h23
tourlourou

Une question bête : pendant ton test avec l'appel de la méthode ListeduTirage.Sort(Compare), ListeduTirage.Sorted valait bien False ?

Pas forcément idiote la question, mais oui, ListeduTirage.Sorted valait bien False, enfin je crois, j'ai fait tant d'essais (autant en refaire un de plus par précaution des fois que).

Alors, j'ai refait
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 var Compare : TFMXObjectSortCompare; begin Tri:=btnDetail.Tag; if btnDetail.Tag=1 then btnDetail.Tag:=0 else btnDetail.Tag:=1; ListBox1.Sorted:=False; // est bien là Compare:=function(item1, item2: TFmxObject): Integer // je rentre bien dedans var n1,n2 : Single; begin n1:=StrToFloatDef(TListBoxItem(item1).ItemData.Detail,0); n2:=StrToFloatDef(TListBoxItem(item2).ItemData.Detail,0); if n2=n1 then result:=0 else begin if n2>n1 then Result := 1 else Result := -1; end; if tri=1 then result:=result*-1; end; ListBox1.BeginUpdate; ListBox1.Sort(Compare); // rien ne se passe au niveau visuel ListBox.EndUpdate; ColumnToSort:=1; //ListBox1.Sorted:=true; // est bien désactivé
J'ai ajouté un memo comme debug pour être sûr
J'allais mettre une capture d'image lorsque, en la faisant, je me suis aperçu que mon clic avait fonctionné :koi:
Je n'avais pas fait attention, cela fonctionne si la fenêtre est rafraichie pas la liste (que le beginupdate/endupdate que j'avais pu mettre pour encadrer), la fenêtre :bug:

dont acte,
Code:

1 2 3 4 5 6 7 8 //Listbox1.BeginUpdate; ListBox1.Sort(Compare); //ListBox1.EndUpdate; Width:=Width+1; Width:=Width-1; //ColumnToSort:=1; //ListBox1.Sorted:=true;
pas satisfaisant comme solution, heureusement la liste est alignée à gauche
je suis tout ouie pour une solution plus "satifaisante" (j'ai essayé un Invalidate de la forme)

28/04/2020, 19h53
SergioMaster

Eureka
Trouvé en fouillant dans le source pour savoir ce qui modifiait FSorted
Code:

1 2 3 4 ListBox1.Sort(Compare); // forcer le dessin de la liste ListBox1.RealignContent;
ça mériterait presque une FAQ je pense
03/05/2020, 08h29
pprem

Hello

Sans doute une remarque un peu bête, mais pourquoi n'utilises-tu pas la propriété Tag pour stocker la valeur numérique en plus de sa version textuelle ? Ca pourrait améliorer les temps de réponse sur les gros volumes et éviter les conversions.
03/05/2020, 09h44
SergioMaster

Bonjour Patrick

Oui dans ce cas c'est effectivement possible (quoique, comme il s'agit d'un tirage de bingo les gros volumes s'arrêtent à 90 :mouarf:)
En fait ce truc a été déclencheur d'autres sujets de réflexion d'où la FAQ que j'ai rédigée
Qui prend en compte d'autres "options".
C'est volontairement que je n'ai écrit que TListBox et uniquement sur les listes ne contenant qu'un Texte (le texte pouvant être un nombre ;) ) ou un Texte et un détail.
Même si j'ai fait des tests sur des TListBox avec styles (plus de 2 objets textes) cela aurait été trop long à expliquer dans une FAQ, cela pourrait-être le sujet d'un billet et, ou, partie d'un tutoriel ...

Je compte bien tester cette même théorie sur un TListView, quoique, un TListView étant généralement lié à une source de données, il est plus facile de trier directement la source :roll: mais bon, il y a quelques petits cas où (liaison avec un TProtypeBindSource) cela peut être intéressant
04/05/2020, 16h30
pprem

voilà que tu redis des gros mots ;)
04/05/2020, 17h09
SergioMaster

:furieux: <= ça c'est un gros mot :ptdr:
plus sérieusement, si une remontée devrait être faite c'est bien sur cette lacune,

TListBox.Sorted:=True -> on n'a pas besoin de "rafraichir" le composant
TListBox.Sort(fonction de comparaison) -> on doit passer par l'instruction RealignContent

Genre de chose qui pourrait être corrigé je pense. Je n'ai vraiment pas le temps de le signaler, même pas d'installer la version bêta sur ce poste (variable path trop longue qui impliquerait que je désinstalle la version 10.2.3 ce que pour l'instant, je ne veux pas).
N'ayant pas assez de mémoire pour des machines virtuelles performantes, je crois que la bêta est pour moi hors d'atteinte