1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
Program Example35;
{ Program to demonstrate the
OpenDir,ReadDir, SeekDir and TellDir functions. }
Uses oldlinux;
Var TheDir : PDir;
ADirent : PDirent;
Entry : Longint;
begin
TheDir:=OpenDir('./.');
Repeat
Entry:=TellDir(TheDir);
ADirent:=ReadDir (TheDir);
If ADirent<>Nil then
With ADirent^ do
begin
Writeln ('Entry No : ',Entry);
Writeln ('Inode : ',ino);
Writeln ('Offset : ',off);
Writeln ('Reclen : ',reclen);
Writeln ('Name : ',pchar(@name[0]));
end;
Until ADirent=Nil;
Repeat
Write ('Entry No. you would like to see again (-1 to stop): ');
ReadLn (Entry);
If Entry<>-1 then
begin
SeekDir (TheDir,Entry);
ADirent:=ReadDir (TheDir);
If ADirent<>Nil then
With ADirent^ do
begin
Writeln ('Entry No : ',Entry);
Writeln ('Inode : ',ino);
Writeln ('Offset : ',off);
Writeln ('Reclen : ',reclen);
Writeln ('Name : ',pchar(@name[0]));
end;
end;
Until Entry=-1;
CloseDir (TheDir);
end.
|
