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

LazUtils: reimplement the test for faDirectory in TFileSearcher.Search. FindFirst returns files in any case.

Browse Source 
git-svn-id: trunk@39312 -
This commit is contained in:
juha 2012-11-19 21:51:07 +00:00
parent 25275d022b
commit b51b639fab
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazutils/fileutil.inc
View File

@ -1469,7 +1469,7 @@ var
// skip special files
if (PathInfo.Name = '.') or (PathInfo.Name = '..') or
(PathInfo.Name = '') then Continue;
// Deal with both files and directories
if (PathInfo.Attr and faDirectory) = 0 then
begin
if (MaskList = nil) or MaskList.Matches(PathInfo.Name) then
@ -1492,13 +1492,14 @@ var
finally
FindCloseUTF8(PathInfo);
end;
if ASearchSubDirs or (ALevel > 0) then // search recursively in directories
if ASearchSubDirs or (ALevel > 0) then
// search recursively in directories
if FindFirstUTF8(P, faDirectory, PathInfo) = 0 then
try
repeat
if (PathInfo.Name = '.') or (PathInfo.Name = '..') or
(PathInfo.Name = '')
(PathInfo.Name = '') or ((PathInfo.Attr and faDirectory) = 0)
then Continue;
FPath := APath;