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

* FileSetDate linux compilation

Browse Source 
git-svn-id: trunk@47399 -
This commit is contained in:
ondrej 2020-11-12 14:41:43 +00:00
parent 8ce015535a
commit e34e4b452a
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -338,16 +338,6 @@ begin
end; end;
{$endif} {$endif}
Function FileSetDate (Const FileName : RawByteString;const FileDateTime : TDateTime) : Longint;
begin
Result:=FileSetDate(UnicodeString(FileName),FileDateTime);
end;
Function FileSetDateUTC (Const FileName : RawByteString;const FileDateTimeUTC : TDateTime) : Longint;
begin
Result:=FileSetDateUTC(UnicodeString(FileName),FileDateTimeUTC);
end;
function FileAge(const FileName: UnicodeString; out FileDateTime: TDateTime; FollowLink: Boolean = True): Boolean; function FileAge(const FileName: UnicodeString; out FileDateTime: TDateTime; FollowLink: Boolean = True): Boolean;
Var Var
@ -875,3 +865,13 @@ begin
end; end;
{$ENDIF} {$ENDIF}
Function FileSetDate (Const FileName : RawByteString;const FileDateTime : TDateTime) : Longint;
begin
Result:=FileSetDate(UnicodeString(FileName),FileDateTime);
end;
Function FileSetDateUTC (Const FileName : RawByteString;const FileDateTimeUTC : TDateTime) : Longint;
begin
Result:=FileSetDateUTC(UnicodeString(FileName),FileDateTimeUTC);
end;