[lazarus] FindInFiles.diff

[Vincent Snijders]

> > I think that the FindClose should be outside the if then block in de
> > FindMatchingFiles procedure in ideproc. What happens if FindFirst
> > return 0, for example when there are no *.inc files in a directory.
> > FindClose is not called. This is also true for the recursive find,
> > but there FindFirst (almost?) never return zero, for a directory
> > contains the . file. Notice that the check if a file is a directory
> >       if ((faDirectory and FileInfo.Attr)>0) then (line 2104)
> > is only done for the first file found. Maybe this should be put
> > inside the repeat until loop.
> 
> Yep.
> 
> 
> Mattias
Attached the patch to do this.

Vincent.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: gz00031.gz
Type: application/octet-stream
Size: 704 bytes
Desc: "findinfiles.patch.gz"
Url : http://localhost/pipermail/lazarus/attachments/20030804/b05c8af0/gz00031.obj