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

Merged revision(s) 49543 #8f7215b840 from trunk:

Browse Source 
LazFileUtils: FileIsReadable on Windows should only return True if the file actually exists.
........

git-svn-id: branches/fixes_1_4@49558 -
This commit is contained in:
maxim 2015-07-19 11:38:11 +00:00
parent dfcd7440d2
commit 2e38b8eedd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/winlazfileutils.inc
View File

@ -1045,7 +1045,7 @@ end;
function FileIsReadable(const AFilename: string): boolean; function FileIsReadable(const AFilename: string): boolean;
begin begin
Result:=true; Result:=FileExistsUTF8(AFilename);
end; end;
function FileIsWritable(const AFilename: string): boolean; function FileIsWritable(const AFilename: string): boolean;