Re: JCL 1.97 BuildFileList

I ran BuildFileList(..., faAnyFile and not faDirectory,...)
but in some cases (in WinXP)
SearchRec.Attr == $2020. But faAnyFile and not faDirectory == $2F

What is Attr $2000? I don't know....

so I changed this call to:
BuildFileList(..., ($F000 or faAnyFile) and not faDirectory,...)


> > I just upgraded my JCL from 1.22 to 1.97, and I'm finding a few
things
> > broken.
> >
> > In JclFileUtils.BuildFileList, for example, the code that used to 
read
> >
> > if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
> > List.Add(SearchRec.Name);
> >
> > now reads
> >
> > if (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
> > and ((SearchRec.Attr and Attr) = SearchRec.Attr) then
> > List.Add(SearchRec.Name);
> >
> > The added check on attributes is causing this function no longer 
to
> > be a simple wrapper for FindFirst, FindNext, FindClose. When I 
roll
> > my own file list, I do
> >
> > FindFirst('c:\foo\*.*', 0, SearchRec);








------------------------ Yahoo! Groups Sponsor --------------------~--> 
Something is new at Yahoo! Groups.  Check out the enhanced email design.
http://us.click.yahoo.com/SISQkA/gOaOAA/yQLSAA/i7folB/TM
--------------------------------------------------------------------~-> 

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/Delphi-JEDI/

<*> To unsubscribe from this group, send an email to:
    [email protected]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/