paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 04:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@36750 -
This commit is contained in:
michael 2017-07-20 07:35:51 +00:00
parent 63b4a1b7e0
commit 547f08e6ea
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/objpas/sysutils/filutil.inc
View File

@ -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;

8
rtl/objpas/sysutils/filutilh.inc
View File

@ -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}