AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

FindFirst / FindLast

Ein Thema von value is NULL · begonnen am 10. Sep 2010 · letzter Beitrag vom 10. Sep 2010
 
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.203 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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz