paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 17:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Move FileIsReadOnly to LazFileUtils (and inline it in FileUtil).

Browse Source 
Part of the ongoing restructuring of LazFileUtils/FileUtil.

git-svn-id: trunk@41566 -
This commit is contained in:
bart 2013-06-06 21:22:21 +00:00
parent dc6bd42de5
commit 9cab951c18
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/fileutil.inc
View File

@ -1279,7 +1279,7 @@ end;
------------------------------------------------------------------------------}
function FileIsReadOnlyUTF8(const FileName: String): Boolean;
begin
Result:=FileGetAttrUTF8(FileName) and faReadOnly > 0;
Result := LazFileUtils.FileIsReadOnlyUTF8(FileName);
end;

2
components/lazutils/fileutil.pas
View File

@ -250,7 +250,7 @@ function FileSetAttrUTF8(const Filename: String; Attr: longint): Longint; inline
function DeleteFileUTF8(const FileName: String): Boolean; inline;
function RenameFileUTF8(const OldName, NewName: String): Boolean; inline;
function FileSearchUTF8(const Name, DirList : String; ImplicitCurrentDir : Boolean = True): String;
function FileIsReadOnlyUTF8(const FileName: String): Boolean;
function FileIsReadOnlyUTF8(const FileName: String): Boolean; inline;
function GetCurrentDirUTF8: String; inline;
function SetCurrentDirUTF8(const NewDir: String): Boolean; inline;
function CreateDirUTF8(const NewDir: String): Boolean; inline;

2
components/lazutils/lazfileutils.pas
View File

@ -852,7 +852,7 @@ end;
function FileIsReadOnlyUTF8(const FileName: String): Boolean;
begin
Result:=SysUtils.FileIsReadOnly(UTF8ToSys(Filename));
Result:=FileGetAttrUTF8(FileName) and faReadOnly > 0;
end;