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

TFileSearcher.Search: use Windows specific file pattern matching on Windows.

Browse Source 
Fixes issue #0024306

git-svn-id: trunk@40973 -
This commit is contained in:
bart 2013-05-01 11:03:12 +00:00
parent 18ac0f9649
commit 5fcdbd6c7d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/fileutil.inc
View File

@ -1448,10 +1448,10 @@ var
// Deal with both files and directories
if (PathInfo.Attr and faDirectory) = 0 then
begin // File
if (MaskList = nil) or MaskList.Matches(PathInfo.Name)
{$IFDEF Windows}
// On Windows files without extension must be included for *.*
or ((ASearchMask = '*.*') and (ExtractFileExt(PathInfo.Name) = ''))
if (MaskList = nil) or MaskList.MatchesWindowsMask(PathInfo.Name)
{$ELSE}
if (MaskList = nil) or MaskList.Matches(PathInfo.Name)
{$ENDIF}
then begin
FPath := APath;