paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-29 08:16:38 +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

6
ide/ideprocs.pp
View File

@ -2090,14 +2090,15 @@ 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
@ -2110,6 +2111,7 @@ begin
until SysUtils.FindNext(FileInfo)<>0;
end;//if
SysUtils.FindClose(FileInfo);
end;
end;//if
end;//if
end;//FindMatchingFiles