Thema: Delphi FindFirst / FindLast

Einzelnen Beitrag anzeigen

value is NULL

Registriert seit: 10. Sep 2010
249 Beiträge
 
#4

AW: FindFirst / FindLast

  Alt 10. Sep 2010, 12:35
hm.. so bewandert bin ich leider noch nicht,

ich kann mit folgender funktion das Erstellungsdatum der Ordner vergleichen:

Delphi-Quellcode:
########################################################################
function FileCreated(fn: TFileName): TDateTime;
var
  sr: TSearchRec;
  tzi: TTimeZoneInformation;
  lt, st: TSystemTime;
begin
  if FindFirst(fn, faAnyFile, sr) = 0 then
  begin
    GetTimeZoneInformation(tzi);
    FileTimeToSystemTime(sr.FindData.ftCreationTime, st);
    SystemTimeToTzSpecificLocalTime(@tzi, st, lt);
    Result := SystemTimeToDateTime(lt);
    SysUtils.FindClose(sr);
  end else Result := 0;
end;
########################################################################
nur wie müsste dann die schleife aussehen, in der ich alle ordner auf das datum prüfe und mir hierbei
das älteste und das neueste suche ?

Danke schon mal

LG Steffen

das ist ja eigentlich das was ich benötige

Geändert von mkinzler (10. Sep 2010 um 13:54 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat