Files: Added TFileDates record

jackdp · Aug 5, 2022 · a6bd630 · a6bd630
1 parent 46e3053
commit a6bd630
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/Base/JPL.Files.pas b/Base/JPL.Files.pas
@@ -41,6 +41,13 @@ interface
 
 type
 
+  TFileDates = record
+    Creation: TDateTime;
+    Modification: TDateTime;
+    Access: TDateTime;
+    procedure Clear;
+  end;
+
   TFileSystemItemType = (fsitFile, fsitDirectory, fsitUnknown);
 
   TFileNameRec = record
@@ -765,4 +772,15 @@ function TFileInfoRec.AsString: string;
 
 {$endregion TFileInfoRec}
 
+
+
+{ TFileDates }
+
+procedure TFileDates.Clear;
+begin
+  Creation := EMPTY_DATE;
+  Modification := EMPTY_DATE;
+  Access := EMPTY_DATE;
+end;
+
 end.