codetools: added GatherFiles

git-svn-id: trunk@24967 -
This commit is contained in:
mattias 2010-04-26 13:40:25 +00:00
parent 4db8628bf5
commit 8b4777eebd

View File

@ -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]);