Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > [Исходники][Delphi][Пример] Вывод списка всех файлов из каталога

Автор: THandle 8.4.2008, 09:53

Задание. Вывести список всех файлов, находящихся в заданной папке и её поддиректориях. Решение. Код procedure ListFilesInDirectory(Dir: string; Strings: TStrings); var   rSearchRec: TSearchRec; begin   if ((Dir = '') or (not Assigned(Strings))) then     Exit;   Dir := IncludeTrailingPathDelimiter(Dir);   if FindFirst(Dir + '*.*', faAnyFile, rSearchRec) = 0 then     try       repeat         if ((rSearchRec.Name <> '.') and (rSearchRec.Name <> '..')) then           if (rSearchRec.Attr and faDirectory) <> 0 then             ListFilesInDirectory(Dir + rSearchRec.Name, Strings)           else             Strings.Add(rSearchRec.Name);       until FindNext(rSearchRec) <> 0;     finally       FindClose(rSearchRec);     end; end; Объяснение. Код procedure ListFilesInDirectory(Dir: string; Strings: TStrings); Dir - каталог из которого нужно вывести имена файлов. Strings - список, в который будут добавлены имена всех файлов. Код   if ((Dir = '') or (not Assigned(Strings))) then     exit; Если список для имен файлов не создан или строка с директорией является пустой, то выходим из процедуры. Код Dir := IncludeTrailingPathDelimiter(Dir); Если в конце строки преданной в Dir нет бэкслеша, то добавляем его. Код if FindFirst(Dir + '*.*', faAnyFile, rSearchRec) = 0 then Ищем любой файл, если находим, то продолжаем работу процедуры, иначе - конец. В цикле repeat...until делаем следующее: Код     repeat       if ((rSearchRec.Name <> '.') and (rSearchRec.Name <> '..')) then         if (rSearchRec.Attr and faDirectory) <> 0 then           ListFilesInDirectory(Dir + rSearchRec.Name, Strings)         else           Strings.Add(rSearchRec.Name);     until FindNext(rSearchRec) <> 0; Код if ((rSearchRec.Name <> '.') and (rSearchRec.Name <> '..')) then Если что-то нашли, то: Код if (rSearchRec.Attr and faDirectory) <> 0 then   ListFilesInDirectory(Dir + rSearchRec.Name, Strings) Если найдена директория, то рекурсивно проводим поиск в ней, вызвав LstFilesInDirectory с соответствующими параметрами, иначе добавляем имя файла в список: Код         else           Strings.Add(rSearchRec.Name); Код     until FindNext(rSearchRec) <> 0; Если больше ничего не найдено, то завершаем процедуру. Пример вызова. На форме находятся следующие компоненты: TButton - по нажатию кнопки и делаем вызов нашей процедуры. TEdit - сюда вписываем путь к папке в которой надо производить поиск (например C:). TListBox - сюда выводим имена файлов. Код procedure TForm1.Button1Click(Sender: TObject); begin   ListFilesInDirectory(Edit1.Text, ListBox1.Items); end;

Автор: Qu1nt 8.4.2008, 10:30

Чтобы бы избежать [Pascal Warning]: Код Dir := IncludeTrailingBackslash(Dir); меняем на Код Dir := IncludeTrailingPathDelimiter(Dir); К тому же, я бы добавил в конец процедуры ListFilesInDirectory: Код FindClose(rSearchRec);

Автор: Rennigth 8.4.2008, 11:48

Плюс я бы объявление процедуры сделал бы так: Код procedure ListFilesInDirectory(const Dir: string; Strings: TStrings); зачем строки копировать на право на лево?...

Автор: Qu1nt 8.4.2008, 11:53

Rennigth, тогда не сработает IncludeTrailingPathDelimiter.

Автор: THandle 8.4.2008, 11:58

Qu1nt, спасибо. Сейчас изменю. FindClose забыл, каюсь.

Автор: Rennigth 8.4.2008, 12:08

Цитата(Qu1nt @  8.4.2008,  11:53 ) Rennigth, тогда не сработает IncludeTrailingPathDelimiter.  угумс, не заметил... но я в таких случаях доп переменную ввожу. это конечно уже дело каждого

Автор: MetalFan 8.4.2008, 12:13

ага, так же я бы добавил проверку на Dir <> '', ибо если придет пустышка, то начнется поиск с корня текущего диска... Добавлено через 1 минуту и 38 секунд а еще мне понравился подход, предложенный на sources.ru http://forum.sources.ru/index.php?showtopic=208088

Автор: THandle 8.4.2008, 12:45

MetalFan, оно и тут есть. http://forum.vingrad.ru/faq/topic-179211.html    Но это уже не совсем для новичков.  Цитата(MetalFan @  8.4.2008,  13:13 ) ага, так же я бы добавил проверку на Dir <> '', ибо если придет пустышка, то начнется поиск с корня текущего диска... Мне такой подход не очень нравится. Не люблю проверять в самой процедуре\функции. Обычно делаю проверку и если что то не так показываю об этом сообщение. Если уж добавлять, то ИМХО, так: Код procedure TForm1.Button1Click(Sender: TObject); begin   if Edit1.Text <> '' then     ListFilesInDirectory(Edit1.Text, ListBox1.Items); end;

Автор: MetalFan 8.4.2008, 14:16

Цитата(THandle @  8.4.2008,  12:45 ) Но это уже не совсем для новичков.  как раз, имхо, не вдаваясь в подробности, проще и нагляднее пользоваться тем методом. Цитата(THandle @  8.4.2008,  12:45 ) Мне такой подход не очень нравится. тогда не будет предусмотрена защита от дурака. простой пример - функция очистки директории. на вход - путь, внутри используется твоя функция. после чего все найденные файлы удаляются. тогда при "случайной" передаче "пустышки" очистим нафиг корень диска... лучше уж элементарную проверку предусмотреть

Автор: THandle 8.4.2008, 14:22

Цитата(MetalFan @  8.4.2008,  15:16 ) как раз, имхо, не вдаваясь в подробности, проще и нагляднее пользоваться тем методом. Ну не знаю. Всё равно там то с 2006, а у новичков обычно 7. Пусть будет и тот пример, и этот. Тут к тому же уже ссылка на тот дана. Кому надо - посмотрят. Цитата(MetalFan @  8.4.2008,  15:16 ) тогда не будет предусмотрена защита от дурака. простой пример - функция очистки директории. на вход - путь, внутри используется твоя функция. после чего все найденные файлы удаляются. тогда при "случайной" передаче "пустышки" очистим нафиг корень диска... лучше уж элементарную проверку предусмотреть  Ладно. Тут убедил.  Сейчас исправлю.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)