Ched <charles.edouard.des.vastes.vig...@gmail.com> schrieb am So., 22. Sep. 2019, 21:11:
> Hello, > > > Le 22.09.19 à 16:59, Michael Van Canneyt a écrit : > > > > > > On Sun, 22 Sep 2019, AlexeyT wrote: > > > >> https://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html > >> > >> 1) add to the list of attribs the value faAnyFile. > > > > Done. > >> > >> 2) correct the example: call FindClose only inside block "if > FindFirst(..)=0" > > > > This is already so in trunk. > > > > Michael. > > > From https://www.freepascal.org/port.html about porting Turbo Pascal > codes: > > > the dos unit Findfirst() call must always be followed by a Findclose to > release some resource. > > What's right ? > Both. AlexeyT and Michael are talking about SyeUtils.FindFirst/FindNext/FindClose while the page you mentioned is about Dos.FindFirst/FindNext/FindClose. Same names, but different units with slightly different behavior. Regards, Sven >
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal