Nochmal FileAge

[himitsu]

Joar, Datei vorhanden,
Verzeichnis richtig,
Pfad eventuell zu lang
ungültige Zeichen,
fehlende Rechte (Verzeichnis lesen dürfen),

und ein ungültiges Datum (ist zwar selten, aber kann auch mal passieren, z.B. nach Hardware-/Softwaredefekt, Virenbefall oder Stromausfall)

Zitat:

function FileAge(const fn: TFilename): TDateTime; overload

Hier hast du ein Problemchen, den Signaturen müssen/sollten eindeutig sein.

Hast du irgendwo mal die DateUtils nach deiner Unit in den Uses, in der dein FileAge deklatiert ist, dann wird das falsche FileAge verwendet.
Und da Integer sich an TDateTime zuweisen lässt (andersrum würde es knallten Float-zu-Integer) gäbe der Compiler keine Warung, wenn er statt deiner Funktion das uralte Original nimmt.

Unterschiedliche Parameter (alles was ohne DEFAULT ist) oder ein anderer Name, damit es eindeutig zugeordnet werden kann.

[Willie1]

Zitat von himitsu:

Hier hast du ein Problemchen, den Signaturen müssen/sollten eindeutig sein.

Ok, das verstehe ich, werde es File_Age nennen. Ich muss mir ja sowieso jedes Vorkommen im Quelltext ansehen. Ich hatte vorgehabt es MyUnit.FileAge zu nennen, aber deine Argumentation überzeugt mich.
Willie.

[himitsu]

Wenn du es überall mit Namespace verwendest, dann wäre es auch eindeutig. (nur einmal ohne Namespace/Unitname verwendet ... kann schief gehn)

[add]
TFile.GetCreationTime(const Path: string): TDateTime;
TFile.GetCreationTimeUtc(const Path: string): TDateTime;
TFile.GetLastAccessTime(const Path: string): TDateTime;
TFile.GetLastAccessTimeUtc(const Path: string): TDateTime;
TFile.GetLastWriteTime(const Path: string): TDateTime;
TFile.GetLastWriteTimeUtc(const Path: string): TDateTime;

[Willie1]

Jetzt will ich es wissen:

Delphi-Quellcode:

function FileAge(const fn: TFilename): TDateTime; overload;
begin
  if not FileAge(fn, Result) then Result := 0;
end;

function File_Age(const fn: TFilename): TDateTime;
begin
  try
    Result := TFile.GetCreationTime(fn);
  except
    Result := 0;   //jeder Fehler wird auf 0 gesetzt!
  end;
end;

Bei der zweiten Methode muss ich IOUtils einbinden.
Sind die beiden Methoden jetzt gleichwertig? W.

[Willie1]

Hallo Himitsu,
danke für deine Geduld.
Willie.