mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-14 04:39:55 +01:00
19 lines
348 B
ObjectPascal
19 lines
348 B
ObjectPascal
Program Example7;
|
|
uses Dos;
|
|
|
|
{ Program to demonstrate the FindFirst and FindNext function. }
|
|
|
|
var
|
|
Dir : SearchRec;
|
|
begin
|
|
FindFirst('*.*',archive,Dir);
|
|
WriteLn('FileName'+Space(32),'FileSize':9);
|
|
while (DosError=0) do
|
|
begin
|
|
Writeln(Dir.Name+Space(40-Length(Dir.Name)),Dir.Size:9);
|
|
FindNext(Dir);
|
|
end;
|
|
FindClose(Dir);
|
|
end.
|
|
|