<div dir="auto"><div><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Ched <<a href="mailto:charles.edouard.des.vastes.vignes@gmail.com">charles.edouard.des.vastes.vignes@gmail.com</a>> schrieb am So., 22. Sep. 2019, 21:11:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hello,<br>
<br>
<br>
Le 22.09.19 à 16:59, Michael Van Canneyt a écrit :<br>
> <br>
> <br>
> On Sun, 22 Sep 2019, AlexeyT wrote:<br>
> <br>
>> <a href="https://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html" rel="noreferrer noreferrer" target="_blank">https://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html</a><br>
>><br>
>> 1) add to the list of attribs the value faAnyFile.<br>
> <br>
> Done.<br>
>><br>
>> 2) correct the example: call FindClose only inside block "if FindFirst(..)=0"<br>
> <br>
> This is already so in trunk.<br>
> <br>
> Michael.<br>
<br>
<br>
 From <a href="https://www.freepascal.org/port.html" rel="noreferrer noreferrer" target="_blank">https://www.freepascal.org/port.html</a> about porting Turbo Pascal codes:<br>
<br>
 > the dos unit Findfirst() call must always be followed by a Findclose to release some resource.<br>
<br>
What's right ?<br></blockquote></div></div><div dir="auto"><br></div><div dir="auto">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. </div><div dir="auto"><br></div><div dir="auto">Regards, </div><div dir="auto">Sven </div><div dir="auto"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
</blockquote></div></div></div>