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

TFileSearcher: allow case-sensitive file searching (defaults to false).

Browse Source 
git-svn-id: trunk@40902 -
This commit is contained in:
bart 2013-04-27 17:22:51 +00:00
parent 36e370bd76
commit d479775c9d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/fileutil.inc
View File

@ -1428,7 +1428,7 @@ begin
end;
procedure TFileSearcher.Search(const ASearchPath: String; ASearchMask: String;
ASearchSubDirs: Boolean);
ASearchSubDirs: Boolean; CaseSensitive: Boolean = False);
var
MaskList: TMaskList;
@ -1499,7 +1499,7 @@ var
begin
if FSearching then RaiseSearchingError;
MaskList := TMaskList.Create(ASearchMask, FMaskSeparator);
MaskList := TMaskList.Create(ASearchMask, FMaskSeparator, CaseSensitive);
// empty mask = all files mask
if MaskList.Count = 0 then
FreeAndNil(MaskList);

2
components/lazutils/fileutil.pas
View File

@ -159,7 +159,7 @@ type
public
constructor Create;
procedure Search(const ASearchPath: String; ASearchMask: String = '';
ASearchSubDirs: Boolean = True);
ASearchSubDirs: Boolean = True; CaseSensitive: Boolean = False);
public
property MaskSeparator: char read FMaskSeparator write FMaskSeparator;
property FollowSymLink: Boolean read FFollowSymLink write FFollowSymLink;