Fileage ist veraltet

[HeikoAdams]

Die Suche nach Fileage AND veraltet könnte helfen - die Frage gab es schon 2x

[SaFu]

Und genau daran hängt es, ich komm einfach nicht darauf.

Für mich sieht die neue Funktion wie die alte aus.

Und die 2 Stück habe ich auch schon gesehen aber werde nicht schlau daraus.

[Klaus01]

Delphi-Quellcode:

var
  Testdatum : TDateTime;

If (FileAge(Serverpfad + SearchRec.name,TestDatum)  and (TestDatum < (Date - 60)) then 
begin 
  DeleteFile(); 
end;

[DeddyH]

Zitat von Roachford:

Die neue heisst genauso und ist überladen und genau deshalb liegt es an der Aufrufsyntax. Also nochmal zurück zum Anfang und dann erneut argumentieren...

Klugscheißer Ich habe auf der Firma nur Delphi 5 zur Verfügung, da kann ich nicht nachsehen.

[Roachford]

Ok, dann mal ins Detail:

Die alte Funktion hat dir die TFileTime als Result zurück gegeben. Das Result (TFileTime) ist ein Fliesskommawert und somit birgt dies Probleme, weil was geschieht, wenn die Datei nicht gefunden wird? Dann wird ein definierter Rückgabewert zurück gegeben und auf den müsste der Aufrufer testen. Da wir aber alle wissen, ist ein Vergleich von Fliesskommawerten mit gewissen Problemen gebunden, die durch die Darstellung der Fliesskommazahlen im digitalen System einhergeht. Und da die wenigsten den Rückgabewert mit SameValue() vergleichen sondern lieber direkt, birgt dies eine grosse Gefahrenquelle.

Abhilfe hat CodeGear dadurch geschaffen, dass sie den Rückgabewert auf Boolean geändert haben und die FileTime als Argument zurück geben. Damit kann der Aufrufer eindeutig erkennen, ob die Dateizeit ermittelt werden konnte. Und dadurch ist die zurück gegebene Zeit auch immer nur dann gültig, wenn die Funktion true zurück gibt. Damit entfällt der Fliesskommavergleich komplett und es ist sicher geworden.

Zitat von Klaus01:

Delphi-Quellcode:

var
  Testdatum : TDateTime;

If FileDateToDateTime(FileAge(Serverpfad + SearchRec.name,TestDatum)) < (Date - 60) then 
begin 
  DeleteFile(); 
end;

Ui, ein Boolean mit einer Zeit vergleichen? Und wozu dann noch die Variable?

Hier nochmal richtig:

Delphi-Quellcode:

var
  Testdatum : TDateTime;

If FileAge(Serverpfad + SearchRec.name, TestDatum) and
   ( FileDateToDateTime(Testdatum ) < (Date - 60) ) then 
begin 
  DeleteFile(); 
end;

@DeddyH: Sorry, aber ich mach das zu gerne...

[Klaus01]

Zitat von Roachford:

Ui, ein Boolean mit einer Zeit vergleichen? Und wozu dann noch die Variable?

habe es oben schon korregiert.

Grüße
Klaus

[SaFu]

Delphi-Quellcode:

var
  Testdatum : TDateTime;

If FileAge(Serverpfad + SearchRec.name, TestDatum) and ( FileDateToDateTime(Testdatum ) < (Date - 60) ) then
begin
  DeleteFile();
end;

Ahh ok das Datum der Datei wir ins Testdatum übergeben und dadurch verglichen.

Hab ich gemacht, geht net

Inkompatible Typen Integer und TDateTime

[DeddyH]

Ich habe gerade die neue Syntax nicht zur Verfügung, aber müsste Testdatum nicht integer sein?

[Roachford]

Delphi-Quellcode:

var
  Testdatum : TDateTime;

If FileAge(Serverpfad + SearchRec.name, TestDatum) and ( Testdatum < (Date - 60) ) then
begin
  DeleteFile();
end;

Das Problem liegt nicht bei FileAge(), sondern bei FileTimeToDateTime(). Diese Umwandlung wird von FileAge() nun schon durchgeführt.

[SaFu]

Danke für die ganzen Anworten jetzt funktioniert es und ich habe es verstanden.