Tri numérique sur ListBox

Existe t'il une possibilité de tri numérique automatique sur une ListBox dont tous les items commencent par des chiffres ? La fonction sorted ne marche pas car elle classe d'abord tous les chiffres qui commencent par 1 puis tous les chiffres qui commencent par 2 etc. Pas réellement ce que je cherche Hi ! Merci pour l'aide Gabriel

Tiré de ma fonction, partie oú je traite des doubles/Integers:

Lista étant une TStrings

var i, j, small : Integer;

      for i := 0 to Lista.Count - 2 do       
      begin
          small := i;

          smallVal := StrToFloat(Lista[i]);

          for j := i + 1 to Lista.Count - 1 do 
              if StrToFloat(Lista[j]) < smallVal
              then begin
                small := j;
                smallVal := StrToFloat(Lista[j]);
              end;

        if small <> i                           // Permuter
        then begin
          Str := Lista[i];
          Lista[i] := Lista[small];
          Lista[small] := Str;
        end;


Tu dois juste remplacer StrToFloat() par une fonction qui te renvoie l' integer de l'item!!!
A+

Une autre façon serait de trier avant de passer les items dans ta liste.
Pour cela, tu peux passer par un Record et un Array:

type
  monRecord=Record
    Valeur: Integer;  // Valeur qui permettra de trouver le plus petit
    MaString; // String qui sera passée dans ta listBox
    Passé: Boolean;  // permet de savoir si on l' a déjá passé dans le listbox
  end;

Tu déclares un aArray comm suit:
Array_Items: Array of monRecord;

Ensuite tu remplies Array_Items avec les différents Items. (N' oublie pas le SetLength de l' array).
"Passé" devra être initialisé à false bien sûr ...

Enfin, tu cherches dans l' array le plus petit (oú Passé = "false") et tu le passes dans ta ListBox.
N' oublie pas de mettre "Passé" à True.

A+

@Mauricio:

Ta méthode ne fonctionne que si les Items sont que des chiffres !!!!

Si ses Items contiennent aussi des lettres ... dans ce cas ça plante

Il dit bien "tous les items commencent par des chiffres"
ce qui sous-entend qu'ils contiennent aussi des lettres

Du coup il est plus facile de rajouter des zéros devant

ps : toutes les méthodes de tries réagissent de la même manière ...
donc pour obtenir un résultat correcte il faut ajouter des zéros

 
@+
Cirec

---

Dans ma derniere phrase de mon 1er commentaire j' ai écrit:
"Tu dois juste remplacer StrToFloat() par une fonction qui te renvoie l' integer de l'item!!!"

Mon 2eme commentaire fonctionnerait aussi très bien ...

A+

Pourquoi faire simple quand on peut faire compliqué

J'avais bien lu ton message
et j'ai même fait les testes qui s'imposent

StrToInt (par exemple) te renvoie une belle exception si la chaine contient des lettres !

ce qui implique qu'il faudrait créer une fonction qui récupère que les chiffres ... mais le trie ne sera pas juste puisque les lettres ne seront pas prise en compte !!!!

Alors que le simple fait d'ajouter des zéros en début permet d'utiliser la méthode de trie interne et sans code supplémentaire avec un résultat trier correctement jusqu'au dernier caractère

 
@+
Cirec

---

çà me fait penser au coup du gars qui veut se faire un diaporama avec ses photos de vacances avec un logiciel tout fait..(photo1, photo2..photo12 etc etc)
et surprise lorsqu'il le lance tout est mélangé !
Alors que si bien sur il se dit tiens j'en ai 999 (il en raté une..) et il nomme ses fichiers :
photo001, photo002, photo047..photo238...photo999.
et là ca va nettement mieux..

cantador

Salut,

« Qu'il y ait des gens beaucoup plus savants que d'autres n'est pas très intriguant. Ce qui est extraordinaire, et diablement instructif, c'est à quel point deux personnes ayant des connaissances proches peuvent diverger dans la façon dont elles les interprètent. »

C'est vachement enrichissant les gars !  ;)

Quelle que soit la manière dont on va traiter le problème, dans tous les cas, il va bien falloir une routine pour récupérer le nombre qui se trouve en début d'item et qui détermine le classement de la liste.