{$S+}
program e1;
uses dos;
var zap:text;
procedure ff(dir,ext:string);
var
finfo:searchrec;
begin
findfirst(dir+'\*.'+ext,anyfile,finfo);
while doserror=0 do
begin
writeln(finfo.name);
findnext(finfo);
end;
findfirst(dir+'\*.*',directory,finfo);
while doserror=0 do
begin
if(finfo.name<>'.') and (finfo.name<>'..') then begin
ff(dir+'\'+finfo.name,ext);
end;
findnext(finfo);
end;
writeln(zap,finfo.name);
end;
begin
assign(zap,'zap.txt');
rewrite(zap);
ff('c:','mp3');
close(zap);
readln;
end.
Программа должна искать все аудио файлы и записывать их в файл
№ 1 | Автор: mego_kitten |
2012-04-01, 15:12 | Изменено: mego_kitten - Вс, 2012-04-01, 15:12
|
Репутация: [ + 0 ]
|
|
|
|
while по моему не правильно записан
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
