mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 19:19:24 +02:00
codetools: added GatherFiles
git-svn-id: trunk@24967 -
This commit is contained in:
parent
4db8628bf5
commit
8b4777eebd
@ -626,7 +626,7 @@ function GatherFiles(Directory, ExcludeDirMask, IncludeFileMask: string): TStrin
|
||||
// file
|
||||
if (IncludeFileMask='')
|
||||
or FilenameIsMatching(IncludeFileMask,ShortFilename,true) then begin
|
||||
DebugLn(['Search ADD ',Filename]);
|
||||
//DebugLn(['Search ADD ',Filename]);
|
||||
GatherFiles.Add(Filename);
|
||||
end else begin
|
||||
//DebugLn(['Search MISMATCH ',Filename]);
|
||||
|
Loading…
Reference in New Issue
Block a user