Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
10. Sep 2010
PS: Diese Art des Vergleichs geht aber nut mit Datumsformaten wie "20100908", "2010-09-08" oder wo auch immer der "größere" Wert zuerst kommt und wo alle Zahlen ordentlich mit ausgerichtet sind.
Mit unserem deutschen "08.09.2010" würde das nicht gehn ... da mü0te man also den String erstmal zerlegen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
10. Sep 2010
Wenn du das Datum nur vergleichen willst, dann könntest mußt du die Zeitzone nicht umrechnen.
function FileCreated(fn: TFileName): TDateTime;
var
sr: TSearchRec;
st: TSystemTime;
begin
if FindFirst(fn, faAnyFile, sr) = 0 then
begin
>>>>
FileTimeToSystemTime(sr.FindData.ftCreationTime, st);
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
10. Sep 2010
Mit FindFrist und FindNext 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...