Ordre des fichiers retourner par FindFirst (TSearchRec) [Résolu]
BernieNoel6897
Messages postés vendredi 12 octobre 2007Date d'inscription
20 novembre 2009
Dernière intervention
-
11 févr. 2009 à 11:27 - Dernière réponse : Caribensila2674
Messages postés jeudi 15 janvier 2004Date d'inscription
11 mai 2018
Dernière intervention
- 16 févr. 2009 à 14:36
Dans mon cas il faudrait que les fichiers soient trouvés dans l'ordre de création (ou de dernière modification), mais je ne sais pas si cela est fait pas défaut, ou si l'ordre des fichiers retourner par FindFirst/FindNext est totalement aléatoire.
Merci d'avance a ceux qui auront une reponse a proposer.
sp401293
Messages postés mardi 28 octobre 2003Date d'inscriptionContributeurStatut
3 juillet 2015
Dernière intervention -11 févr. 2009 à 12:04
3
Merci
Salut Bernie,
Essaie ce code (ici, il remplit un composant Listbox (LB) avec la liste triée par ordre de création)
procedure TForm1.Chercher(Sender: TObject);
procedure AddInList(ASL : TStringList; ARech : TSearchRec);
begin
if ARech.Attr <> faDirectory
then ASL.Add(DateTimeToStr(FileDateToDateTime(ARech.Time)) +'|'+ ARech.Name);
end;
var
{--------------------------------}
LSR_Rech : TSearchRec;
{--------------------------------}
LSL_Rech : TStringList;
{--------------------------------}
i : Integer;
{--------------------------------}
LS_LongName : String;
{--------------------------------}
begin
LSL_Rech := TStringList.Create;
if FindFirst({Nom du répertoire} +'\*.*', faAnyFile, LSR_Rech) = 0 then begin
AddInList(LSL_Rech, LSR_Rech);
while FindNext(LSR_Rech) = 0
do AddInList(LSL_Rech, LSR_Rech);
end;
FindClose(LSR_Rech);
LSL_Rech.Sort;
For i := 0 to LSL_Rech.Count - 1 do begin
LS_LongName := LSL_Rech.Strings[i];
LB.Items.Add(Copy(LS_LongName, Pos('|', LS_LongName) + 1, Length(LS_LongName)));
end;
LSL_Rech.Free;
end;
sp401293
Messages postés mardi 28 octobre 2003Date d'inscriptionContributeurStatut
3 juillet 2015
Dernière intervention -13 févr. 2009 à 18:15
0
Merci
@Cari
Tu te permets bien...
Désolé, j'avais pas vu ton snippet la dernière fois...
Eh ! mais il n'y est plus ! Je voulais le récupérer pour m'updater.
T'avais la même erreur ?
a aidé 124 internautes ce mois-ci