Помогите с Turbo Pascal'em

Форум для программистов

Сообщение Ti-Mac » Вт май 18, 2004 12:57 am

Вообщем совсем разобрался и даже процедуру сканирования по маске всего диска сделал (результат в файл)
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
procedure ScanDir(StartDir: string;Mask:String;var f:text;);

var

  SearchFiles : TSearchRec;
  SearchDirs : TSearchRec;

begin

  if FindFirst(StartDir+Mask, (faanyfile xor fadirectory), SearchFiles) = 0 then begin

   assignfile(f,'C:\Infotree.txt');
   append(f);

    repeat
     
      writeln(f,Startdir+searchfiles.name);     

    until FindNext(SearchFiles) <>0;
    close(f);
    findclose(Searchfiles);
    End;

           If FindFirst(StartDir+'*.*',(fadirectory xor fahidden),SearchDirs)=0 then begin
           repeat
           if (Searchdirs.name<>'..') and (searchdirs.name<>'.') then
           scandir(startdir+SearchDirs.name+'\',mask,f);
           until findnext(SearchDirs)<>0;
           findclose(searchdirs);
           end;

    end;<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Последний раз редактировалось Ti-Mac Вт май 18, 2004 1:42 am, всего редактировалось 1 раз.
<span style='color:blue'>Formating C: .................98%</span>
<span style='color:red'>Fatal Error:</span> <span style='color:blue'>found Windows</span>
Ti-Mac
Капитан
 
Сообщений: 168
Зарегистрирован: Вс апр 18, 2004 8:18 am
Откуда: Кемерово
Пункты репутации: 0

Сообщение Spike » Вт май 18, 2004 2:46 am

а где проверки то?
<!--coloro:blue--><span style="color:blue"><!--/coloro--><a href="http://www.foobar2000.ru/" target="_blank">www.foobar2000.ru - все о любимом аудиоплеере.</a><!--colorc--></span><!--/colorc-->
RUSnet #foobar2000 #miranda.
<a href="http://www.foobar2000.ru/" target="_blank">Изображение</a>

<!--coloro:red--><span style="color:red"><!--/coloro-->Даша, я люблю тебя!<!--colorc--></span><!--/colorc-->
Spike
Генерал-лейтенант
 
Сообщений: 3036
Зарегистрирован: Вт мар 18, 2003 7:34 am
Откуда: Ачинск, Красноярский край
Пункты репутации: 0

Сообщение Ti-Mac » Вт май 18, 2004 9:23 am

2Spike Lee
Если функция Findfirst возвращает значение "ноль" - значит такой файл есть в каталоге
А для Findnext значение не равное "нулю" означает, что такие файлы в каталоге "закончились"
Последний раз редактировалось Ti-Mac Вт май 18, 2004 9:29 am, всего редактировалось 1 раз.
<span style='color:blue'>Formating C: .................98%</span>
<span style='color:red'>Fatal Error:</span> <span style='color:blue'>found Windows</span>
Ti-Mac
Капитан
 
Сообщений: 168
Зарегистрирован: Вс апр 18, 2004 8:18 am
Откуда: Кемерово
Пункты репутации: 0

Сообщение Spike » Ср май 19, 2004 12:09 am

2Ti-Mac
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--> assignfile(f,'C:\Infotree.txt');
  append(f);<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
нада сюда проверку по идее
<!--coloro:blue--><span style="color:blue"><!--/coloro--><a href="http://www.foobar2000.ru/" target="_blank">www.foobar2000.ru - все о любимом аудиоплеере.</a><!--colorc--></span><!--/colorc-->
RUSnet #foobar2000 #miranda.
<a href="http://www.foobar2000.ru/" target="_blank">Изображение</a>

<!--coloro:red--><span style="color:red"><!--/coloro-->Даша, я люблю тебя!<!--colorc--></span><!--/colorc-->
Spike
Генерал-лейтенант
 
Сообщений: 3036
Зарегистрирован: Вт мар 18, 2003 7:34 am
Откуда: Ачинск, Красноярский край
Пункты репутации: 0

Сообщение Ti-Mac » Ср май 19, 2004 2:16 am

2Spike Lee
Проверка этого не нужна. Дело в том, что моя прога при запуске создаёт этот файл, а потом обрабатывается эта процедура. Так что ошибок быть не должно...
<span style='color:blue'>Formating C: .................98%</span>
<span style='color:red'>Fatal Error:</span> <span style='color:blue'>found Windows</span>
Ti-Mac
Капитан
 
Сообщений: 168
Зарегистрирован: Вс апр 18, 2004 8:18 am
Откуда: Кемерово
Пункты репутации: 0

Сообщение Spike » Ср май 19, 2004 2:24 am

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
Так что ошибок быть не должно...
<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
как у сапера
<!--coloro:blue--><span style="color:blue"><!--/coloro--><a href="http://www.foobar2000.ru/" target="_blank">www.foobar2000.ru - все о любимом аудиоплеере.</a><!--colorc--></span><!--/colorc-->
RUSnet #foobar2000 #miranda.
<a href="http://www.foobar2000.ru/" target="_blank">Изображение</a>

<!--coloro:red--><span style="color:red"><!--/coloro-->Даша, я люблю тебя!<!--colorc--></span><!--/colorc-->
Spike
Генерал-лейтенант
 
Сообщений: 3036
Зарегистрирован: Вт мар 18, 2003 7:34 am
Откуда: Ачинск, Красноярский край
Пункты репутации: 0

Пред.

Вернуться в Программирование

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

cron