[fpc-devel] Unexpexted result of FindFirst with 2.2.4
kisda at hispeed.ch
Tue Apr 21 16:47:54 CEST 2009
FindFirst from fpc 2.2.4 returns zero (file found) and an empty Name if I search for files in a empty directory.
With fpc 2.2.2 FindFirst returns -1 as expected.
Im using Debian Lenny (i386) and installed the 2.2.4 *.deb's from the freepascal ftp site.
The following program is quiet with fpc 2.2.2, with 2.2.4 the output is:
Can someone please confirm this. Thank you.
var SearchRec : TSearchRec;
if ( FindFirst('./empty_dir/*', faAnyFile - faDirectory, SearchRec ) = 0 ) then
with SearchRec do
writeln( 'Found : ', Name,' Len=', length(Name) );
FindClose( SearchRec );
(dont forget: mkdir ./empty_dir)
-------------- next part --------------
A non-text attachment was scrubbed...
Size: 250 bytes
Desc: OpenPGP digital signature
More information about the fpc-devel