Discussion :

[Charly910]

Bonjour,

j'ai une liste de type TList dans laquelle j'ajoute des Lignes de type PLIgne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Type
  PLigne = ^TLigne ;
  TLigne = Record
    Nom     : String ;
    Largeur : Integer ;
    Hauteur : Integer ;
  End;
 
Var
  Liste : TList ;
  LMax  : Integer ;

j'ajoute les 3 lignes suivantes que j'affiche dans un ListBox

AAA 100 100
000 200 200
_AA 300 300

je trie la liste avec le code suivant :

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
{ ===================================================================== }
Function FonctionTri(Item1,Item2:Pointer):Integer ;
// Tri selon la 1ere colonne : Nom
Begin
  If PLigne(Item1).Nom < PLigne(Item2).Nom Then
    Result := -1
  Else
    If PLigne(Item1).Nom > PLigne(Item2).Nom Then
      Result := 1
    Else
      Result := 0 ;
End;
{ ===================================================================== }
procedure TriListe;
// Tri suivant la colonne 1 : Nom
Var
  i : Integer ;
begin
  Liste.Sort(FonctionTri) ;
  MAJListBox ;
end;
{ ===================================================================== }

après mise à jour de LB1, j'obtiens

000 200 200
AAA 100 100
_AA 300 300

je voudrais obtenir :

_AA 300 300
000 200 200
AAA 100 100

car normalement _ est avant 0 (comme dans l'explorateur de fichiers)

Comment dois je modifier ma fonction de tri ?

Voici le code de mon test :

TestListe.zip

Merci
A+
Charly

[SergioMaster]

car normalement _ est avant 0 (comme dans l'explorateur de fichiers)

Heu, pas dans la table des caractères, avant le 'a' ou plus exactement avant le '`'
Tu pourrais toujours soustraire le '_' avant

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
 
Function FonctionTri(Item1,Item2:Pointer):Integer ;
// Tri selon la 1ere colonne : Nom
var s1,s2;
Begin
  s1:=Replacestr(PLigne(Item1).Nom,'_','',[rfreplaceAll];
  s2:=Replacestr(PLigne(Item2).Nom,'_','',[rfreplaceAll];
  If s1< s2 Then
    Result := -1
  Else
    If s1 > s2 Then
      Result := 1
    Else
      Result := 0 ;
End;

[Charly910]

Ok, merci Serge,

mais ce qui m'interpelle, c'est que si je fais LB1.Sorted := True, j'obtiens le _ avant le 0 :

_AA 300 300
000 200 200
AAA 100 100

Dans l'explorateur de fichiers c'est pareil, le _ est avant le 0, le a, le ...

Je vais utiliser ta solution, mais je me demande comment Windows fait pour obtenir cet ordre de tri ?

A+
Charly

[Charly910]

Merci Serge,

ça marche bien avec :

Code :

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

1
2
  s1 := StringReplace(PLigne(Item1).Nom,'_',' ',[rfreplaceAll]);
  s2 := StringReplace(PLigne(Item2).Nom,'_',' ',[rfreplaceAll]);

on peut aussi remplacer ' ' par Char(1) pour être sûr d'être en premier ?

je vais tester avec d'autres caractères comme ~ par exemple.

Mon objectif est d'obtenir le même ordre que celui de la ListBox LB1 quand elle est triée.

A+
Charly

[Charly910]

J'ai testé avec LB1 triée et aussi avec le gestionnaire de fichiers :

l'ordre est : # , _, ~ , puis 0, ..., A, ... et a, ...

je n'avais jamais vu que cet ordre n'était pas celui de l'ASCII !

A+
Charly

[Paul TOTH]

pour un tri plus intelligent il faut passer par une fonction de comparaison comme CompareText() ... et il faut peut-être laisser tomber Delphi 7

[Charly910]

J'utilise D10.4 pour mes nouvelles applis mais là c'est une vielle appli que je voulais modifier !

j'ai testé CompareText :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
{ ===================================================================== }
Function FonctionTri(Item1,Item2:Pointer):Integer ;
// Tri selon la 1ere colonne : Nom
Var
  s1, s2 : String ;
Begin
  s1 := PLigne(Item1).Nom ;
  S2 := PLigne(Item2).Nom ;
  Result := CompareText(s1, s2) ;
End;
{ ===================================================================== }

Mais cela me donne l'ordre suivant :

#AA 300 300
000 200 200
AAA 100 100
_AA 300 300
~AA 300 300

Alors que LB1.sorted:= true (et aussi le tri du gestionnaire de fichiers) donne :

#AA 300 300
_AA 300 300
~AA 300 300
000 200 200
AAA 100 100

Bon ce n'est pas encore ce que je veux. Je vais laisser tomber le tri !

A+
Charly

[blonde]

Et si dans ta petite fonction de tri tu utilises "AnsiCompareStr" à la place de CompareText, cela correspond à ce que tu cherches ?

[Charly910]

Ah oui ! merci Blonde :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
{ ===================================================================== }
Function FonctionTri(Item1,Item2:Pointer):Integer ;
// Tri selon la 1ere colonne : Nom
Var
  s1, s2 : String ;
Begin
  s1 := PLigne(Item1).Nom ;
  S2 := PLigne(Item2).Nom ;
  Result := AnsiCompareStr(s1, s2) ;
End;
{ ===================================================================== }

Fonctionne à merveille !

Merci
A+
Charly