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)
