Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.007 Beiträge
 
Delphi 12 Athens
 
#15

AW: Irritationen bei SetLastWriteTime/ GetLastWriteTime

  Alt 25. Mär 2020, 12:58
Da ist irgendwas an deinem System anders als bei meinem (Delphi 10.3.3). Folgendes Testprogramm liefert das korrekte Ergebnis:
Delphi-Quellcode:
program Project650;

{$APPTYPE CONSOLE}

uses
  System.IOUtils,
  System.SysUtils;

var
  FileName: string;

begin
  FileName := TPath.GetTempFileName;
  TFile.WriteAllText(FileName, 'Hallo Welt');
  TFile.SetLastWriteTimeUTC(FileName, StrToDateTime('01.05.2020 10:00'));
  Writeln(DateTimeToStr(TFile.GetLastWriteTimeUTC(FileName)));
  Readln;
end.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat