Hi all, 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:
Found: Len=0
Can someone please confirm this. Thank you.
greetings kisda
program fpc_find;
uses sysutils;
var SearchRec : TSearchRec;
begin
if ( FindFirst('./empty_dir/*', faAnyFile - faDirectory, SearchRec ) = 0 )
then
with SearchRec do
writeln( 'Found : ', Name,' Len=', length(Name) );
FindClose( SearchRec );
end.
(dont forget: mkdir ./empty_dir)
signature.asc
Description: OpenPGP digital signature
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
