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

TFileSearcher: don't add a pathdelimiter to the path when calling OnQueryDirectoryEnter.

Browse Source
This commit is contained in:
Bart 2024-02-07 10:09:13 +01:00
parent 558e9d1a58
commit c95ec9df9f
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/fileutil.inc
View File

@ -860,7 +860,7 @@ var
repeat repeat
if (PathInfo.Name = '.') or (PathInfo.Name = '..') or if (PathInfo.Name = '.') or (PathInfo.Name = '..') or
(PathInfo.Name = '') or ((PathInfo.Attr and faDirectory) = 0) or (PathInfo.Name = '') or ((PathInfo.Attr and faDirectory) = 0) or
(not AcceptDir(AppendPathDelim(ExpandFilenameUtf8(APath + PathInfo.Name)))) (not AcceptDir(ExpandFilenameUtf8(APath + PathInfo.Name)))
then then
Continue; Continue;
if Assigned(VisitedDirs) then if Assigned(VisitedDirs) then