findnext
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
this program not work correctly:
uses Dos,crt;
var
DirInfo: SearchRec;
i:longint;
begin
writeln(\'------------\');
i:=0;
FindFirst(\'*.*\', anyfile + archive + readonly + hidden +directory, DirInfo);
while DosError = 0 do
begin
Writeln(DirInfo.Name);
FindNext(DirInfo);
inc(i);
if i mod 20=0 then readkey;
end;
writeln(\'--- TOT \',i);
readkey;
end.
on Win32, TOT = 47, on Linux TOT = 33
I try it in /mnt/dos (taht is a FAT32) and on /bin
with similar problem (as root),
and a similar version with Sysutils.
I send more info by email
Additional information:
Reporter: Salvatore Licciardi
EMail: turylicciardi at tiscalinet dot it
Mantis conversion info:
- Mantis ID: 5797
- OS: Linux
- Version: 1.9.6