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

TFileSearcher: use the new Options parameter for the MaskList.

Browse Source 
git-svn-id: trunk@62783 -
This commit is contained in:
bart 2020-03-20 17:59:40 +00:00
parent 35ea303818
commit e513f7a26a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/fileutil.inc
View File

@ -824,10 +824,14 @@ var
Dir: String;
i: Integer;
OtherDir: String;
MaskOptions: TMaskOptions;
begin
if FSearching then RaiseSearchingError;
MaskList := TMaskList.Create(ASearchMask, FMaskSeparator, CaseSensitive);
if CaseSensitive then
MaskOptions := [moCaseSensitive]
else
MaskOptions := [];
MaskList := TMaskList.Create(ASearchMask, FMaskSeparator, MaskOptions);
// empty mask = all files mask
if MaskList.Count = 0 then
FreeAndNil(MaskList);