Téléchargé 15 fois
Vote des utilisateurs
3 
0
Détails
Licence : Non renseignée
Mise en ligne le 17 juin 2016
Langue : Français
Référencé dans
Navigation
Tri TStringList
Tri TStringList
Bonjour à tous.
Le tri alphabétique ne se fait pas correctement dans un TStringList lorsque des chaines contiennent des caractères accentués.
En attendant une implémentation dans une version ultérieure de Lazarus, voici de quoi vous dépanner.
Deux manières :
a) utiliser TLatinStringList (dans le zip) qui est dérivé de TStringList avec simplement un override de la fonction DoCompareText : remplacement, pour le tri, des caractères accentués par leur correspondant non accentué. L'avantage est que, pour une liste triée, l'ajout de nouvelles chaines va directement se faire au bon endroit. L'inconvénient est que les fonctions Find et IndexOf (qui utilisent DoCompareText) ne vont plus distinguer "élève" de "élevé". Ce qui peut poser problème si on interdit les duplicates.
b) utiliser un CustomSort avec une fonction faisant appel à la fonction RemoveAccent. Pour ceux qui ne connaissent pas la méthode, voir le fichier txt.
Merci d'avance pour vos commentaires
Thierry
Le tri alphabétique ne se fait pas correctement dans un TStringList lorsque des chaines contiennent des caractères accentués.
En attendant une implémentation dans une version ultérieure de Lazarus, voici de quoi vous dépanner.
Deux manières :
a) utiliser TLatinStringList (dans le zip) qui est dérivé de TStringList avec simplement un override de la fonction DoCompareText : remplacement, pour le tri, des caractères accentués par leur correspondant non accentué. L'avantage est que, pour une liste triée, l'ajout de nouvelles chaines va directement se faire au bon endroit. L'inconvénient est que les fonctions Find et IndexOf (qui utilisent DoCompareText) ne vont plus distinguer "élève" de "élevé". Ce qui peut poser problème si on interdit les duplicates.
b) utiliser un CustomSort avec une fonction faisant appel à la fonction RemoveAccent. Pour ceux qui ne connaissent pas la méthode, voir le fichier txt.
Merci d'avance pour vos commentaires
Thierry
@gvasseur58 :
Chose promise, chose due.
http://www.developpez.net/forums/d1590624/autres-langages/pascal/lazarus/trouver-l-implementation-methode-tri-d-tstringlist-fouillis/
@Tous :
A la réflexion, je vous recommande la deuxième manière (CustomSort + function RemoveAccent) en laissant évidemment la propriété Sorted = false.
On évite ainsi les problèmes de duplicates.
CustomSort ne maintient pas un tri constant lors de l'ajout (modification) de ligne. Mais souvent, cela n'est pas nécessaire. On refait le tri au besoin.
Chose promise, chose due.
http://www.developpez.net/forums/d1590624/autres-langages/pascal/lazarus/trouver-l-implementation-methode-tri-d-tstringlist-fouillis/
@Tous :
A la réflexion, je vous recommande la deuxième manière (CustomSort + function RemoveAccent) en laissant évidemment la propriété Sorted = false.
On évite ainsi les problèmes de duplicates.
CustomSort ne maintient pas un tri constant lors de l'ajout (modification) de ligne. Mais souvent, cela n'est pas nécessaire. On refait le tri au besoin.
Envoyé par ThWilliam
Merci d'avance pour vos commentaires
.Merci. C'est en effet un casse-tête permanent que ces caractère UTF8.
Hier je m’étonnais un peu de ne pouvoir remplacer des guillemets "" par des “” qu'en utilisant un StringReplace, qui est “élastique” avec les caractères de plusieurs octets. J'ai regardé le fichier texte utf8 en hexa, et j'ai vu que j'essayais de remplace $22 par $E2809C et $E2809D sans faire de place pour trois octets.
Tant qu'on se contentait de l'alphabet latin, on était quand même bien tranquille avec l'ANSI…
Hier je m’étonnais un peu de ne pouvoir remplacer des guillemets "" par des “” qu'en utilisant un StringReplace, qui est “élastique” avec les caractères de plusieurs octets. J'ai regardé le fichier texte utf8 en hexa, et j'ai vu que j'essayais de remplace $22 par $E2809C et $E2809D sans faire de place pour trois octets.
Tant qu'on se contentait de l'alphabet latin, on était quand même bien tranquille avec l'ANSI…
Envoyé par Francois_C
Merci. C'est en effet un casse-tête permanent que ces caractère UTF8.
Casse-tête ? Pour t'en convaincre encore plus, je t'invite à regarder tout ce qu'il faut coder pour mettre un mot en minuscules ! function UTF8LowerCase dans lazarus\components\lazutils\lazutf8.pas
Cordialement
Thierry
Envoyé par Francois_C
Tant qu'on se contentait de l'alphabet latin, on était quand même bien tranquille avec l'ANSI…
.
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.