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

LazFileUtils: fix stupid mistake in DbgSFileAttr() function.

Browse Source 
git-svn-id: trunk@48165 -
This commit is contained in:
bart 2015-03-07 17:25:44 +00:00
parent 34fa9b2929
commit 750c0cd318
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazutils/lazfileutils.inc
View File

@ -382,13 +382,13 @@ begin
else
begin
Result := '[-------]';
if (faDirectory and Attr) = 0 then Result[2] := 'D';
if (faArchive and Attr) = 0 then Result[3] := 'A';
if (faSysFile and Attr) = 0 then Result[4] := 'S';
if (faReadOnly and Attr) = 0 then Result[5] := 'R';
if (faHidden and Attr) = 0 then Result[6] := 'H';
if (faVolumeId and Attr) = 0 then Result[7] := 'V';
if (faSymLink and Attr) = 0 then Result[8] := 'L';
if (faDirectory and Attr) > 0 then Result[2] := 'D';
if (faArchive and Attr) > 0 then Result[3] := 'A';
if (faSysFile and Attr) > 0 then Result[4] := 'S';
if (faReadOnly and Attr) > 0 then Result[5] := 'R';
if (faHidden and Attr) > 0 then Result[6] := 'H';
if (faVolumeId and Attr) > 0 then Result[7] := 'V';
if (faSymLink and Attr) > 0 then Result[8] := 'L';
end;
end;