- Charte de CommentCaMarche.net - Conseils d'écriture
- Charte de CodeS-SourceS - Principes de modération
- Charte d'utilisation de Codes-Sources -- Gestion de communauté
- Conditions générales d'utilisation
- Charte d'utilisation de CodeS-sourceS-- Respect d'autrui
- Charte d'utilisation de CodeS-SourceS - Aspects légaux
Ordre des fichiers retourner par FindFirst (TSearchRec) [Résolu]
BernieNoel68
- Messages postés
- 97
- Date d'inscription
- vendredi 12 octobre 2007
- Dernière intervention
- 20 novembre 2009
- Messages postés
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Dernière intervention
- 26 juillet 2018
A voir également:
- Tsearchrec
- Delphi tsearchrec - Meilleures réponses
- Findfirst delphi - Meilleures réponses
- [VBA] Conserver l'ordre du fichier excel lors de l'importation vers une table AC ✓ - Forum - Visual Basic
- Fonction retournant le nom d'un fichier - Codes sources - ASP / ASP.NET (ASP.Net)
- Calcul ordre de grandeur automatique pour taille de fichier (octet, ko, mo, go, to...) - Codes sources - PHP (Fichier / Disque)
- Ne pas écraser un fichier existant - renommer le fichier créé en ajoutant un numéro d'ordre - Codes sources - Delphi / Pascal (Fichier / Disque)
- Parcourir un répertoire et ses sous sous sous... répertoire et retourner les fichiers qui ont l'exte - Codes sources - PHP (Fichier / Disque)
7 réponses
Meilleure réponse
- Messages postés
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Dernière intervention
- 26 juillet 2018
Bonjour,
FindFirst/FindNext te renvoie les fichiers triés par ordre alphabétique.
Pour obtenir un autre ordre, c'est à toi de le coder.
Voir un exemple ici.
FindFirst/FindNext te renvoie les fichiers triés par ordre alphabétique.
Pour obtenir un autre ordre, c'est à toi de le coder.
Voir un exemple ici.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 1293
- Date d'inscription
- mardi 28 octobre 2003
- Statut
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;
Désolé Caribensila, je l'avais sous la main...
Simon
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;
Désolé Caribensila, je l'avais sous la main...
Simon
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 97
- Date d'inscription
- vendredi 12 octobre 2007
- Dernière intervention
- 20 novembre 2009
Merci a tous les deux, c'est la solution que j'avais adopté (trier en utilisant la propriété Time du TSearchRec).
Dans mon cas les noms de fichiers utilise un numéro incrémentale, donc le classement alphabétique correspond a la date de création/modification.
Mon problème est donc résolu, et ma lanterne éclairée!
Dans mon cas les noms de fichiers utilise un numéro incrémentale, donc le classement alphabétique correspond a la date de création/modification.
Mon problème est donc résolu, et ma lanterne éclairée!
- Messages postés
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Dernière intervention
- 26 juillet 2018
- Messages postés
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Dernière intervention
- 26 juillet 2018
- Messages postés
- 2684
- Date d'inscription
- jeudi 15 janvier 2004
- Dernière intervention
- 26 juillet 2018
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.