GetLastWriteTime ohne Exception?

[Luckie]

Result := Now; // Something to return in case of error Und wie stellst du einen Fehler fest? Bzw. woher weiß der Anwender, dass die Funktion fehlgeschlagen ist?

[a.def]

Das ist in meinem Fall total unwichtig denn wenn da wo das Ergebnis angezeigt werden soll einfach nichts angezeigt (ich habe 0 draus gemacht) wird ist das absolut nicht schlimm.
Ich baue hier keine professionelle Software die 5000€ kostet

[himitsu]

Zitat:

Unnötige Dateizugriffe möchte ich nach Möglichkeit vermeiden ...

Wie wäre es, wenn du FindFile bzw. das TDirectory-Derivat verwendest?

Das wäre dann ja ein Exists und GetLastWriteTime in nur einem Zugriff.


PS: Dass diese Zeit heutzutage eventuell keinen sinnvollen Wert besitzt, ist aber bekannt?
Vorallem bei Speicherkarten, USB-Sticks, SSDs und Co. wird das im NTFS gern mal deaktiviert und gibt somit nicht das letzte Änderungsdatum der enthaltenen Dateien wieder.

[Rollo62]

Ich frage IMMER FileExist/DirectoryExist vorher ab, bevor ich auf etwas zugreife.
Weil zu oft dort Fehler passieren.

Jetzt könnte man sagen lass es immer in die Exception Laufen, und gut is,
aber da bin ich eher konservativ.

Was würde denn die moderne Entwicklung empfehlen,
eher lokale Excaptions mit Overhead, oder FileExists mit Overhead ?

Ich vermute mal das die lokale Exceptions Methode jetzt State-of-the-Art ist

EDIT:
Ich sehe Exceptions als Fehler an, nicht als Feature zur Businesslogik.

Rollo

[a.def]

Ich benutze jetzt TDirectory.Exists und TFile.Exists vorher.

Wenn eine Datei nicht existiert geht das damit wesentlich schneller als ohne denn ohne scheint der pro Datei etwa 1 bis 2 Sekunden im Dateisystem oder woanders noch zu suchen.

Delphi-Quellcode:

function TForm8.getPathLastWriteTime(const aPathName: string): TDateTime;
begin
 if JclFileUtils.DirectoryExists(aPathName) then
  begin
   try
    Result := FileTimeToDateTime(JclFileUtils.GetFileLastWrite(ExcludeTrailingBackslash(aPathName))); // mit "/" am Ende bekommt man kein Resultat
   except
    Result := 0;
   end;
  end
 else
  Result := 0;
end;

function TForm8.getFileLastWriteTime(const aFileName: string): TDateTime;
begin
 if JclFileUtils.FileExists(aFileName) then
  begin
   try
    Result := FileTimeToDateTime(JclFileUtils.GetFileLastWrite(aFileName));
   except
    Result := 0;
   end;
  end
 else
  Result := 0;
end;

[p80286]

Zitat von Rollo62:

EDIT:
Ich sehe Exceptions als Fehler an, nicht als Feature zur Businesslogik.

Ich denke, sooo schlimm ist das nicht. Wenn ich mich richtig erinnere ist für Windows eine Datei im Zugriff vorhanden, oder aber nicht, und es gibt einiges was den Zugriff verhindern kann. Ein Fileexists prüft ja nur, ob es einen Eintrag im Dateisystem für einen Dateinamen gibt. Wenn Du also weißt was Du tust, ist Fileexists brauchbar ansonsten bist Du mit der Methode "die Datei ist zu öffnen oder nicht" auf der sicheren Seite.

Gruß
K-H

[Rollo62]

Exception: Wenn ich die nicht korrekt abfange fliegt mir u.U. wer weiss was um die Ohren.
Muss dann immer try except finally reinbauen und lokal drauf reagieren.
Kann aber viellleicht halb bearbeitet sein, halb nicht.

Da kann ich auch gleich FileExist und an der richtigen Stelle im Code korrekt reagieren.

Edit:
Nenn mich ruhig old-shool

Rollo