Discussion :

[aharel]

Bonjour,

J'ai besoin de trier une TStringList qui contient des nom d'isotopes qui ont des noms qui ressemblent à ça :
He-5
Zn-59
Zn-60
Zn-61
Zn-61m
Zn-61n
Zn-68
Zn-69
Zn-69m
Le souci c'est que le tri par défaut sur la stringlist ne gère pas bien l'ordre alphabétique quand il y a des chiffres dans les chaînes.
Quelqu'un a déjà codé une méthode de tri pour gérer ces cas-là ?

Merci.

[Barbibulle]

Le soucis c'est que le tri par défaut sur la stringlist ne gère pas bien l'ordre alphabétique quand il y a des chiffres dans les chaines.

Bonjour,

Il gère parfaitement le tri ALPHABETHIQUE.

Si dans les dictionnaires il y avait des chiffres et que vous cherchiez ce que veut dire 52 vous iriez à la "lettre" 5 et trouveriez 5 mais aussi 51,52,...59 etc..

Il est plus exacte de dire que ça ne tri pas comme vous le souhaitez.

Si vous écriviez vos éléments en mettant les zéros non significatifs devant les nombres le tri alphabétique fonctionnera comme vous le souhaitez :

He-05
...
Zn-05
Zn-06
...
Zn-49
Zn-59
Zn-60
Zn-61
Zn-61m
Zn-61n
Zn-68
Zn-69
Zn-69m

[aharel]

Effectivement vu comme ça.
Mais le soucis c'est que je ne vais pas reformatter mes éléments en mettant les zéros non significatifs devant les nombres. Je veux afficher mes chaines de la liste telles quelles.
Il faut donc que j'utilise un CustomSort sur la TStringList.

[Barbibulle]

J'avais bien compris, mais je vous ai donné une piste.

Vous formatez vos nombres juste pour les trier, pour l'affichage vous utilisez la chaîne non formatée.

Enfin c'est une idée.

[popo]

Dans une TStringList on peut associer un Objet à chaque item.
Ainsi, il suffit de laisser le 0 significatif comme le suggère Barbibulle et de stocker la valeur sans le 0 significatif dans la propriété Objects[x] de la manière suivante :

Code :

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

1
2
MyStringList.Strings[x] := 'He-05';
MyStringList.Objects[x] := 'He-5';

Le trie s'effectuera correctement et la bonne valeur sera toujours disponible dans Objects[x].