paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 19:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

FileUtil: inline FileSetDateUTF8 to use LazFileUtils.FileSetDateUTF8.

Browse Source 
git-svn-id: trunk@41290 -
This commit is contained in:
bart 2013-05-19 12:56:41 +00:00
parent 280b9f2060
commit bdec439cd2
4 changed files with 7 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/fileutil.inc
View File

@ -64,6 +64,11 @@ begin
Result := LazFileUtils.FileAgeUTF8(FileName);
end;
function FileSetDateUTF8(const FileName: String; Age: Longint): Longint;
begin
Result := LazFileUtils.FileSetDateUTF8(FileName, Age);
end;
{$IFDEF darwin}
function GetDarwinSystemFilename(Filename: string): string;
var

2
components/lazutils/fileutil.pas
View File

@ -222,7 +222,7 @@ function ExtractShortPathNameUTF8(Const FileName : String) : String;
function FindFirstUTF8(const Path: string; Attr: Longint; out Rslt: TSearchRec): Longint;
function FindNextUTF8(var Rslt: TSearchRec): Longint;
procedure FindCloseUTF8(var F: TSearchrec);
function FileSetDateUTF8(const FileName: String; Age: Longint): Longint;
function FileSetDateUTF8(const FileName: String; Age: Longint): Longint; inline;
function FileGetAttrUTF8(const FileName: String): Longint; inline;
function FileSetAttrUTF8(const Filename: String; Attr: longint): Longint; inline;
function DeleteFileUTF8(const FileName: String): Boolean;

8
components/lazutils/unixfileutil.inc
View File

@ -135,13 +135,7 @@ begin
Result:=st.st_size;
end;
{------------------------------------------------------------------------------
FileSetDateUTF8
------------------------------------------------------------------------------}
function FileSetDateUTF8(const FileName: String; Age: Longint): Longint;
begin
Result:=SysUtils.FileSetDate(UTF8ToSys(Filename),Age);
end;
{------------------------------------------------------------------------------
GetFileDescription

35
components/lazutils/winfileutil.inc
View File

@ -242,35 +242,6 @@ begin
Windows.FindClose(FindHandle);
end;
{-------------------------------------------------------------------------------
FileSetDateUTF8
-------------------------------------------------------------------------------}
{$ifndef WinCE}
function FileSetDateAnsi(const FileName: String; Age: Longint): Longint;
begin
Result:=SysUtils.FileSetDate(UTF8ToSys(Filename),Age);
end;
{$endif}
function FileSetDateWide(const FileName: String; Age: Longint): Longint;
var
FT:TFileTime;
fh: HANDLE;
begin
try
fh := CreateFileW(PWideChar(UTF8ToUTF16(FileName)),
FILE_WRITE_ATTRIBUTES,
0, nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
if (fh <> feInvalidHandle) and (DosToWinTime(Age,FT) and SetFileTime(fh, nil, nil, @FT)) then
Result := 0
else
Result := GetLastError;
finally
if (fh <> feInvalidHandle) then FileClose(fh);
end;
end;
{------------------------------------------------------------------------------
FindFirstUTF8
@ -520,7 +491,6 @@ end;
var
FileSize_ : function (const Filename: string): int64 = @FileSizeWide;
FileSetDate_ : function (const FileName: String; Age: Longint): Longint = @FileSetDateWide;
FindFirst_ : function (const Path: string; Attr: Longint;
out Rslt: TSearchRec): Longint = @FindFirstWide;
FindNext_ : function (var Rslt: TSearchRec): Longint = @FindNextWide;
@ -540,10 +510,6 @@ begin
Result:=FileSize_(FileName);
end;
function FileSetDateUTF8(const FileName: String; Age: Longint): Longint;
begin
Result:=FileSetDate_(FileName, Age);
end;
function FindFirstUTF8(const Path: string; Attr: Longint; out Rslt: TSearchRec): Longint;
begin
@ -626,7 +592,6 @@ begin
if Win32MajorVersion <= 4 then
begin
FileSize_:=@FileSizeAnsi;
FileSetDate_:=@FileSetDateAnsi;
DeleteFile_:=@DeleteFileAnsi;
RenameFile_:=@RenameFileAnsi;
SetCurrentDir_:=@SetCurrentDirAnsi;