Verz. nach Datei durchsuchen die gestern gemacht wurden

[remie]

Hi
ich habe ein problem und zwar muss ich ein Verzeichnis nach
einer Datei durchsuchen, die vom ausführungsdatum aus gesehen Gestern zuletzt geändert wurde
hat sowas schon mal jemand gemacht ?
oder eine Idee?
das mit FindFirst habe ich schon gesehen, aber das hilft mir nicht so recht weiter,
gibt es da auch eine Sortiermöglichkeit bzw. nen count oder ähnliches ???

Danke im Vorraus

[tomsel]

hier gibt es imho nur die Möglichkeit mit der Kombination von FindFirst und FindNext in einer Schleife jede Datei auf die gesuchte Eigenschaft hin zu überprüfen.

[remie]

oh man das hab ich befürchtet ok nagut dan schmeiß ich das alles in nen array und lese es dan aus
aber einen count gibt es nicht oder ?
damit ich die array länge nihct so unendlihc groß machen muss

[tomsel]

Zitat:

oh man das hab ich befürchtet ok nagut dan schmeiß ich das alles in nen array und lese es dan aus
aber einen count gibt es nicht oder ?
damit ich die array länge nihct so unendlihc groß machen muss

wofür ein Array???

Delphi-Quellcode:

procedure Dateisuche;
var SearchRec:tSearchRec;
    dtGestern:tDate;
    sDateiPfad:string;
begin
        ...
   if FindFirst(sDateipfad + '\*.*', faAnyFile, SearchRec) = 0 then
       repeat
          if ((Searchrec.Attr and faDirectory) = 0)
          and(FileDateToDateTime(SearchRec.Time) = dtGestern) then begin
            ...
          end;
        until FindNext(SearchRec) <> 0;
        FindClose;

end;

[remie]

ja gut so würde ich ja alle Dateien senden, die gestern zuletzt geändert wurden,
aber ich soll nur das zuletzt geänderte abschicken somit muss ich das doch vergleichen
:-/

merci für die schnelle Hilfe

[ichbins]

Mach eine Variable in der Speicherst du den Namen der 1. gefundenen Datei und das Datum. Bei der nächsten Datei überprüfst du, ob das Datum später ist, wenn ja, wird der Datumswert und Dateiname in der Variable ersetzt. (usw)

Und du musst nie ein Array "so unendlich lang machen", es gibt ja zum Glück dynamische Arrays:

Delphi-Quellcode:

var
  a:array of string;
begin
  setlength(a,0);
  
  ...

  while findnext(s) do
  begin
    setlength(a,length(a)+1); //a um 1 verlängern
    a[length(a)-1]:=s.filename; //Ins letzte Element den Dateinamen speichern
  end;
end;