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 ?
Cheers, Ched'
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
