Thema: Delphi FindFirst / FindLast

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.186 Beiträge
 
Delphi 12 Athens
 
#3

AW: FindFirst / FindLast

  Alt 10. Sep 2010, 11:23
Mit Delphi-Referenz durchsuchenFindFrist und Delphi-Referenz durchsuchenFindNext kannst du das Verzeichnis einlesen.

Dabei zählst du die Dateien zusammen, welche du findest ... für den Vergleich mit der maximalen Größe

und kannst dir auch gleichzeitig noch die jüngste und älteste Datei merken.
Vorher jeweils eine Variable für das jüngste und älteste Datum anlegen und mit einem Datum in der fernen Zukunft (für das Neuste), bzw. aus der Vergangenheit (für das Älteste) initialisieren.
Nun brauchst du nur noch vergleichen, ob das Datum jeweil kleiner/größer, bzw. neuer/älter ist und wenn dieses der Fall ist, dann wird die Variable geändert.

Tja, nun nur noch die Größe vergleichen und wenn nötig umbennenen.
> Die Datums- und Größenangaben hast du dafür ja nun auch schon beisammen.

@Mavarik: Klar kann man das Dateidatum nochmal getrennt auslesen, aber FindFirst/FindNext liefern dieses auch schon. (auch wenn man, vor Delphi 2011/XE, dieses oftmals noch umrechnen müßte)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat