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

fixed findclose

Browse Source 
git-svn-id: trunk@3439 -
This commit is contained in:
mattias 2002-10-01 15:46:02 +00:00
parent b73b5353d5
commit b49c62e4b0
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/ideprocs.pp
View File

@ -2090,26 +2090,28 @@ begin
FileList.Add(TempDir + FileInfo.Name);
end;//if
until SysUtils.FindNext(FileInfo)<>0;
SysUtils.FindClose(FileInfo);
end;//if
SysUtils.FindClose(FileInfo);
end;//for
finally
MaskList.Free;
end;//try-finally
//If selected then Look for and search subdirectories
if (recursive) and (SysUtils.FindFirst(TempDir
if (recursive) then begin
if (SysUtils.FindFirst(TempDir
+FindMask,faAnyFile,FileInfo)=0) then
begin
if ((faDirectory and FileInfo.Attr)>0) then
begin
repeat
// check if special file
if (FileInfo.Name='.') or (FileInfo.Name='..') then continue;
FindMatchingTextFiles
(FileList,TempDir + FileInfo.Name,mask,recursive);
until SysUtils.FindNext(FileInfo)<>0;
end;//if
SysUtils.FindClose(FileInfo);
if ((faDirectory and FileInfo.Attr)>0) then
begin
repeat
// check if special file
if (FileInfo.Name='.') or (FileInfo.Name='..') then continue;
FindMatchingTextFiles
(FileList,TempDir + FileInfo.Name,mask,recursive);
until SysUtils.FindNext(FileInfo)<>0;
end;//if
SysUtils.FindClose(FileInfo);
end;
end;//if
end;//if
end;//FindMatchingFiles