FindFirst / FindLast

[SirThornberry]

Zitat von himitsu:

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.

Das ist gar nicht notwendig das man Fantasiedaten nimmt. Man kann die Werte für älteste und neueste Datei einfach von der ersten gefundenen nehmen. Pseudocode:

Delphi-Quellcode:

if FindFirst(...) then
begin
  oldestdate := SearchRec....;
  newestdate := SearchRec....;
  repeat
    [...]
  until FindNext(....);
  FindClose(...);
end;