Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses linux;
var
dp:pdir;
begin
dp := opendir ('/tmp/dir1');
if dp = nil then
begin
writeln('пЫЙВЛБ ПФЛТЩФЙС ЛБФБМПЗБ /tmp/dir1');
halt(1);
end;
(*
лПД, ТБВПФБАЭЙК У ЛБФБМПЗПН
.
.
.
*)
closedir (dp);
end.
var
dp:pdir;
begin
dp := opendir ('/tmp/dir1');
if dp = nil then
begin
writeln('пЫЙВЛБ ПФЛТЩФЙС ЛБФБМПЗБ /tmp/dir1');
halt(1);
end;
(*
лПД, ТБВПФБАЭЙК У ЛБФБМПЗПН
.
.
.
*)
closedir (dp);
end.