Trouver l'implémentation de la méthode de tri d'un TStringList : quel fouillis !

**ThWilliam** · 16/06/2016, 13h20

Bonjour à tous.

Si j'ajoute 3 items dans un TListBox : "elle", "éléphant", "voiture"
Et que je trie le ListBox, j'obtiens un ordre parfait : "éléphant", "elle", "voiture".

Ceci aussi bien sous Linux que sous Windows.

Je fais la mème chose dans un TStringList (sorted) et j'obtiens dans l'ordre : "elle", "voiture", "éléphant".
C'est à dire le même résultat qu'en utilisant la fonction UTF8CompareText qui considère bien sûr que le "é" vient après le "v".

Pourtant, TStringList est une classe dérivée de TStrings, tout comme la propriété Items d'un ListBox.
On est donc en droit de s'attendre à ce que la méthode de tri soit la même !!?

Je pars donc à la recherche de l'implémentation de la méthode, et là, quel fouillis ! Un chat n'y retrouverait pas ses petits !

TStringList n'est déclaré que dans le fichier "classesh.inc". Aucune implémentation de méthode.
De inc en inc, je ne trouve que des "widgetclass", des "registerclass" ou autres trucs du genre...

J'en déduis que Lazarus utilise les méthodes natives de l'OS. Bon, d'accord si c'est ce qu'il y a de plus performant, mais je préférerais tout de même une véritable implémentation, ne serait-ce que pour mon intérêt personnel de voir le code utilisé. Et ne serait-ce pas un gage de meilleure compatibilité entre OS ?

Donc, ma question : pourquoi la méthode de tri d'un TStringList n'est-elle pas la même que celle utilisée, par exemple, dans un ListBox ?

Merci.

Cordialement
Thierry

**gvasseur58** · 16/06/2016, 21h48

Bonjour !

Envoyé par ThWilliam

Pourtant, TStringList est une classe dérivée de TStrings, tout comme la propriété Items d'un ListBox.
On est donc en droit de s'attendre à ce que la méthode de tri soit la même !!?

Eh bien non

. Si une classe donnée a toujours le même comportement, deux classes dérivées n'ont pas forcément le même comportement... Items de TListBox est de type TStrings, ce qui lui permet d'être compatible avec les différents descendants dont TStringList. "Compatible" ne signifie pas "identique"...

Envoyé par ThWilliam

Je pars donc à la recherche de l'implémentation de la méthode, et là, quel fouillis ! Un chat n'y retrouverait pas ses petits !

TStringList n'est déclaré que dans le fichier "classesh.inc". Aucune implémentation de méthode.
De inc en inc, je ne trouve que des "widgetclass", des "registerclass" ou autres trucs du genre...

Eh bien encore non

. TStringList est bien implémenté dans classesh.inc à partir de la ligne 1005 (Lazarus 1.6 Free Pascal 3.0)

Envoyé par ThWilliam

J'en déduis que Lazarus utilise les méthodes natives de l'OS. Bon, d'accord si c'est ce qu'il y a de plus performant, mais je préférerais tout de même une véritable implémentation, ne serait-ce que pour mon intérêt personnel de voir le code utilisé. Et ne serait-ce pas un gage de meilleure compatibilité entre OS ?

TListBox est bien celui de l'OS, d'où l'appel au widget après un test

Code :

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

if HandleAllocated then

TStringList est implémenté en Pascal dans l'unité déjà mentionnée.

Donc, ma question : pourquoi la méthode de tri d'un TStringList n'est-elle pas la même que celle utilisée, par exemple, dans un ListBox ?

Ce ne sont pas les mêmes classes qui sont en jeu. En revanche, là où je suis d'accord avec toi, c'est que l'introduction de l'UTF8 a semé (un peu) le bazar dans la gestion des chaînes. C'est un passage obligé, mais qui ne simplifie pas le travail du programmeur. Je préfère le comportement de Delphi qui sait trier de manière correcte les chaînes, y compris celles qui contiennent des caractères accentués.

Une solution serait de reprendre la méthode de tri de TStringList (puisque c'est elle qui donne des résultats faux pour nos lettres accentuées).

La méthode de comparaison est virtuelle (on peut donc la modifier dans les classes qui descendent de TStringList) :

Code :

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

1
2
3
4
Procedure TStringList.Sort;
begin
  CustomSort(@StringListAnsiCompare);
end;

Il faut par conséquent écrire une fonction (pas une méthode puisqu'elle ne dépend pas d'une classe) qui remplacera celle par défaut :

Code :

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

1
2
3
4
function StringListAnsiCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := List.DoCompareText(List.Strings[Index1], List.Strings[Index2]);
end;

Ensuite, en supposant que la nouvelle fonction s'appelle MyStringCompare, il suffira de surcharger TStringList.Sort de cette manière :

Code :

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

1
2
3
4
Procedure TStringList.Sort;
begin
  CustomSort(@MyStringCompare);
end;

Les éventuels résultats m'intéressent !

**ThWilliam** · 17/06/2016, 11h52

Bonjour Gilles et merci pour ta réponse.

deux classes dérivées n'ont pas forcément le même comportement...

C'est évident. En fait, je pensais que la méthode de tri était développée dans TStrings, ce qui n'est pas le cas puisque la fonction DoCompareText n'est que virtuelle.
Mea culpa.

TStringList est bien implémenté dans classesh.inc à partir de la ligne 1005

Chez moi (Lazarus 1.6 sous win7), l'implémentation n'est faite que dans le fichier stringl.inc (de fait, à partir de la ligne 1005).
Je n'avais pas pensé à consulter ce fichier. Encore une fois, mea culpa !

Je préfère le comportement de Delphi qui sait trier de manière correcte les chaînes, y compris celles qui contiennent des caractères accentués.

A qui le dis-tu !!!

Enfin, puisque je sais maintenant que Lazarus n'a pas développé de méthode de tri tenant compte correctement des accents, je retourne à mon ancien système : un CustomSort avec une fonction perso qui, pour le tri, remplace les caractères accentués par leur correspondant non accentué.

Encore merci.

Cordialement
Thierry