Discussion :

[ChPr]

Bonjour à toutes et à tous,

Dans un programme, j'utilse FindFirst et FindNext pour charger des images. Les noms des dossiers et des fichiers images (jpg) sont des nombres. Exemple dossier '256' et image '184.jpg'.

Lorsque j'utilise un explorateur de fichiers, je les vois bien en ordre croissant, que j'ai choisi un tri par nom ou par date.

Sous Ubuntu, FindFirst et FindNext, aussi bien sur les dossiers que les fichiers, charge ces dossiers et ces fichiers dans un ordre qui n'est pas l'ordre croissant affiché par l'explorateur. Sous Windows: pas de problème.

Avez-vous rencontré ce problème, y a-t-il une solution ?

Cordialement.

Pierre

[hmira]

Bonjour,

Il n'a jamais été stipulé nulle part que les fonctions FindFirst et FindNext retournent les noms de fichiers classés par ordre alphabétique, et ce, y compris sous Windows !

Les fonctions FindFirst et FindNext renvoient les noms de fichiers dans l'ordre dans lequel le système de fichiers sous-jacent décide, et veut bien, de les fournir. Toute supposition de votre part d’un ordre établi, en l’occurrence, un ordre alphabétique, serait hasardeuse !

Pour résoudre ce problème, une technique commune, consiste à stocker les fichiers ainsi que leurs caractéristiques (date création, taille, etc.), dans une liste d’objets, voire même dans une simple TStringList s’il s’agit uniquement des noms de fichiers, puis de classer les objets de la liste selon une fonction personnalisée de votre choix, définie par vous-même, puis passer la dite fonction de tri à la méthode TStringList.CustomSort.

A+

[ChPr]

... voire même dans une simple TStringList s’il s’agit uniquement des noms de fichiers, ...
A+

Bon, puisque FindFirst et FinNext n'en font qu'à leur tête , je vais utiliser le TStringList et sa possibilité de tri. C'est d'ailleurs ce que j'avais envisagé comme solution.

Cordialement.

Pierre

[BeanzMaster]

Re-bonjour Pierre

Si jamais dans l'unité FileUtil il y a une fonction déjà prête :

Code :

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

1
2
function FindAllFiles(const SearchPath: String; SearchMask: String = '';
  SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory): TStringList;

A+

[ChPr]

Merci BeanzMaster pour ce "FindAllFiles" dont je me servirai certainement dans d'autres cas.

Dans mon cas présent, j'ai un masque un peu spécial : les noms de répertoires et fichiers trouvés doivent être un nombre. La fonction "FindAllFiles" convient, mais ne me simplifie pas ici la tâche. Donc, je reste avec ceci :

Code :

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

1
2
3
4
5
6
7
8
      if FindFirst ('*', faDirectory, InfoRep)= 0 then
      repeat
        if TryStrToInt(InfoRep.Name, x) then  // Teste si le nom du répertoire est un nombre
            ListeDeNom.Add(InfoRep.Name);
      until FindNext(InfoRep) <> 0;
      FindClose(InfoRep);
      ListeDeNom.CustomSort(CompareInt); // Je les remets dans un ordre croissant
      ...

Cordialement.

Pierre