Trier par date lors d'un findfirst/findnext
Résolu
padsou
Messages postés
121
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
13 avril 2010
-
13 sept. 2005 à 10:03
padsou Messages postés 121 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 13 avril 2010 - 15 sept. 2005 à 10:45
padsou Messages postés 121 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 13 avril 2010 - 15 sept. 2005 à 10:45
4 réponses
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
15 sept. 2005 à 09:32
15 sept. 2005 à 09:32
Te complique pas la vie pour cela et utilise la fonction ExtractFileName.
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
14 sept. 2005 à 21:20
14 sept. 2005 à 21:20
Si le problème est toujours d'actualité, voici une proposition de solution commentée.
<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
implementation
{$R *.dfm}
type
{Comme la structure TSearchrec n'est pas utilisable tel quel,
on utilise une classe pour l'emballer}
TSearchRecObj = class (TObject)
Sr: TSearchRec;
end;
{Fonction de tri personnalisé en fonction des dates des fichiers}
function SortList(List:TStringList;Index1,Index2:Integer):Integer;
var
Obj1, Obj2: TSearchRecObj;
begin
{Récupérer les objets pointés par la liste
de chaines après transtypage}
Obj1 : = TSearchRecObj(List.Objects[Index1]);
Obj2 := TSearchRecObj(List.Objects[Index2]);
{Comparaison "classique" en ordre croissant}
if Obj1.Sr.Time < Obj2.Sr.Time then
Result : = -1
else
if Obj1.Sr.Time > Obj2.Sr.Time then
Result := 1
else
Result := 0;
end ;
procedure TForm1.Button1Click(Sender: TObject);
var
Sr: TSearchRec;
SrObj: TSearchRecObj;
Sl: TStringList;
i: integer;
begin
Memo1.Clear;
Sl : = TStringList.Create;
try
if FindFirst('*.*', faAnyFile - faDirectory, Sr) = 0then
begin
repeat
{Créer un wrapper de TSearchRec pour
chaque fichier trouvé}
SrObj := TSearchRecObj.Create;
SrObj.Sr := Sr;
{Ajout à la liste}
Sl.AddObject(DateTimeToStr(FileDateToDateTime(Sr.Time))+ ' - ' + Sr.Name, SrObj);
until FindNext(Sr) <> 0;
FindClose(Sr);
end;
{Tri de la liste de chaines}
Sl.CustomSort(SortList);
{Visualisation du résultat}
Memo1.Text : = Sl.Text;
finally
{Destruction des objets pointés par la liste}
for i := Sl.Count - 1 downto 0do
Sl.Objects[i].Free;
{ Destruction de la liste de chaine }
Sl.Free;
end;
end;
Contrôles nécessaires :
1 TButton
1 TMemo (pour contrôler le résultat (pas utile en production)
<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
padsou
Messages postés
121
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
13 avril 2010
15 sept. 2005 à 09:29
15 sept. 2005 à 09:29
ça marche impeccable merci mais désormais pour récuperer, uniquement le nom du fichier (parce que c'était un peu le but lol) je dois découper la chaine en fonction d'un caractère séparateur, non ?
padsou
Messages postés
121
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
13 avril 2010
15 sept. 2005 à 10:45
15 sept. 2005 à 10:45
G.E.N.I.A.L. ! Merci infiniment !
