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

FileUtil: implement optional parameter DirAttr for FindAllFiles.

Browse Source 
git-svn-id: trunk@47144 -
This commit is contained in:
bart 2014-12-08 21:51:43 +00:00
parent c66cfdb9b2
commit f78f0d056d
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/fileutil.inc
View File

@ -955,11 +955,12 @@ begin
end;
procedure FindAllFiles(AList: TStrings; const SearchPath: String;
SearchMask: String; SearchSubDirs: Boolean);
SearchMask: String; SearchSubDirs: Boolean; DirAttr: Word);
var
Searcher: TListFileSearcher;
begin
Searcher := TListFileSearcher.Create(AList);
Searcher.DirectoryAttribute := DirAttr;
try
Searcher.Search(SearchPath, SearchMask, SearchSubDirs);
finally
@ -968,10 +969,10 @@ begin
end;
function FindAllFiles(const SearchPath: String; SearchMask: String;
SearchSubDirs: Boolean): TStringList;
SearchSubDirs: Boolean; DirAttr: Word): TStringList;
begin
Result := TStringList.Create;
FindAllFiles(Result, SearchPath, SearchMask, SearchSubDirs);
FindAllFiles(Result, SearchPath, SearchMask, SearchSubDirs, DirAttr);
end;
{ TListDirectoriesSearcher }

4
components/lazutils/fileutil.pas
View File

@ -202,9 +202,9 @@ type
end;
function FindAllFiles(const SearchPath: String; SearchMask: String = '';
SearchSubDirs: Boolean = True): TStringList; overload;
SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory): TStringList; overload;
procedure FindAllFiles(AList: TStrings; const SearchPath: String;
SearchMask: String = ''; SearchSubDirs: Boolean = True); overload;
SearchMask: String = ''; SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory); overload;
function FindAllDirectories(const SearchPath: string;
SearchSubDirs: Boolean = True): TStringList; overload;