* Add TimeStamp property to TSearchRec (reworked patch from Ondrej Pokorny, bug ID #32165)

git-svn-id: trunk@36750 -

rtl/objpas/sysutils/filutil.inc

@@ -542,3 +542,18 @@ begin
   InternalFindClose(f.FindHandle{$ifdef USEFINDDATA},f.FindData{$endif});
 end;
 
+{ TUnicodeSearchRec }
+
+function TUnicodeSearchRec.GetTimeStamp: TDateTime;
+begin
+  Result := FileDateToDateTime(Time);
+end;
+
+{ TRawbyteSearchRec }
+
+function TRawbyteSearchRec.GetTimeStamp: TDateTime;
+begin
+  Result := FileDateToDateTime(Time);
+end;
+
+

rtl/objpas/sysutils/filutilh.inc

@@ -57,6 +57,10 @@ Type
 {$ifdef USEFINDDATA}
     FindData : TFindData;
 {$endif}
+  private
+    function GetTimeStamp: TDateTime;
+  public
+    property TimeStamp: TDateTime read GetTimeStamp;
   end;
 
   TRawbyteSearchRec = Record
@@ -72,6 +76,10 @@ Type
 {$IFDEF USEFINDDATA}
     FindData : TFindData;
 {$ENDIF}
+  private
+    function GetTimeStamp: TDateTime;
+  public
+    property TimeStamp: TDateTime read GetTimeStamp;
   end;
 
 {$IFDEF FPC_UNICODE_RTL}