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

codetools: added GatherFiles

Browse Source 
git-svn-id: trunk@24967 -
This commit is contained in:
mattias 2010-04-26 13:40:25 +00:00
parent 4db8628bf5
commit 8b4777eebd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/definetemplates.pas
View File

@ -626,7 +626,7 @@ function GatherFiles(Directory, ExcludeDirMask, IncludeFileMask: string): TStrin
// file // file
if (IncludeFileMask='') if (IncludeFileMask='')
or FilenameIsMatching(IncludeFileMask,ShortFilename,true) then begin or FilenameIsMatching(IncludeFileMask,ShortFilename,true) then begin
DebugLn(['Search ADD ',Filename]); //DebugLn(['Search ADD ',Filename]);
GatherFiles.Add(Filename); GatherFiles.Add(Filename);
end else begin end else begin
//DebugLn(['Search MISMATCH ',Filename]); //DebugLn(['Search MISMATCH ',Filename]);