Comportement bizarre de FindFirst et FindNext sous Ubuntu

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

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+

Citation:

---

Envoyé par hmira

... 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 :wink:, je vais utiliser le TStringList et sa possibilité de tri. C'est d'ailleurs ce que j'avais envisagé comme solution.

Cordialement.

Pierre

Re-bonjour Pierre

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

Code:

---

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

---

A+

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:

---

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