Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите пожалуйста исправить программу
{$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
2 | Автор: Berestovskiy | 2012-04-01, 18:15   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: