VPF::Паскаль - работа с firstfind/findnext - Форум программистов

player_inside

Дата 24.9.2008, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 30.4.2008

Репутация: нет
Всего: нет

Помогите, кому не трудно:
Написал програму, в которой используется рекурсивная процедура с участием firstfind и nextfind (процедура должна по очереди "позаходить" в каждый подкаталог указаного каталога), но почему-то оно не работает: после выхода из подкаталога процедура не находит следущий каталог в родительском.
Вот код

Код


program Arch_EOM;
uses crt,DOS;
var direct :string;
      DirInfo:SearchRec;

procedure recalc(dir:string);
Begin
{$I-}
chDir(dir);
findfirst('*.*',AnyFile,DirInfo);
while DOSerror = 0 do
   begin
   if ((DirInfo.Attr and directory) = directory) and (DirInfo.Name <> '.') and (DirInfo.Name <> '..') then
      begin
      recalc(DirInfo.Name);
      chDir('..');
      end;
   findnext(Dirinfo);     {Вот тут оно и не находит следущий каталог}
   end;
enD;

BEGIN
clrscr;
direct:='D:\123';  {Имя родительского каталога}
chDir(direct);
recalc(direct);
readln;
END.

Использую Borland Pascal v 7.0, Виталий
Заранее спасибо

dumb

Дата 24.9.2008, 00:42 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: нет
Всего: 158

Код


procedure recalc(dir:string);
var DirInfo:SearchRec;
Begin
...

player_inside

Дата 24.9.2008, 00:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 30.4.2008

Репутация: нет
Всего: нет

Спасибо, заработало!!! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »