[lazarus] FindInFiles.diff

Vincent Snijders vslist at zonnet.nl
Mon Aug 4 18:25:48 EDT 2003

> > 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.


-------------- 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

More information about the Lazarus mailing list