3
{ Program to demonstrate the
4
OpenDir,ReadDir, SeekDir and TellDir functions. }
13
TheDir:=fpOpenDir('./.');
15
// Entry:=fpTellDir(TheDir);
16
ADirent:=fpReadDir (TheDir^);
20
Writeln ('Entry No : ',Entry);
21
Writeln ('Inode : ',d_fileno);
22
// Writeln ('Offset : ',d_off);
23
Writeln ('Reclen : ',d_reclen);
24
Writeln ('Name : ',pchar(@d_name[0]));
28
Write ('Entry No. you would like to see again (-1 to stop): ');
32
// fpSeekDir (TheDir,Entry); // not implemented for various platforms
33
ADirent:=fpReadDir (TheDir^);
37
Writeln ('Entry No : ',Entry);
38
Writeln ('Inode : ',d_fileno);
39
// Writeln ('Offset : ',off);
40
Writeln ('Reclen : ',d_reclen);
41
Writeln ('Name : ',pchar(@d_name[0]));