Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поиск файлов [D7, WinXP]

qwer-10 © (2005-07-07 16:17:00)
Для поиска файлов на диске во всего его каталогах и подкаталогах, я использую две отдельные процедуры:

procedure FindFiles (const Path: String); begin FindFirst... ... end;

и
procedure FindFolders (const Path: String); begin FindFirst... ... end;

правильно ли будет написать так:

procedure FindFolders (const Path: String); procedure FindFiles (const: Path: String); begin ... end; begin ... end;

т.е сделать процедуру FindFiles вложенной ? Спасибо!

Германн (2005-07-10 01:04:00) [1]
2 ronyn (10.07.05 00:03) [11]
Повторить вышеописанную последовательность функций для всех логических дисков "компа".

ronyn (2005-07-10 00:03:00) [2]
Как сделать , что бы он искал во всех директориях компа?

Просто Джо (2005-07-07 22:56:00) [3]

> [8] ronyn (07.07.05 22:44)
> Как будет выглядеть код...

Смотря как написать. В-общем, выглядеть будет достаточно тривиально.

Anatoly Podgoretsky (2005-07-07 22:55:00) [4]
ronyn (07.07.05 22:44) [8]
http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N158

ronyn (2005-07-07 22:44:00) [5]
Как будет выглядеть код поиска на компе всех музыкальных файлов и добавления их в ListBox? Заранее благодарен.

Просто Джо (2005-07-07 19:25:00) [6]

> [3] fens (07.07.05 19:11)
> в этом случае вложенность имеется?

В этом случае имеется синтаксическая ошибка. И не одна.

Alexander Panov (2005-07-07 19:24:00) [7]
qwer-10 (07.07.05 19:19) [4]

Да не ошибся ты, правильно все написал.
Если у тебя есть в этом необходимость, то совершенно спокойно можешь использовать подобное определение процедур и функций.

Anatoly Podgoretsky (2005-07-07 19:23:00) [8]
Anatoly Podgoretsky © (07.07.05 16:25) [2]
Увидел (надо все такм отступы делать), все правильно. Не люблю необоснованно вложенные функции. В данном случае не обосновано.

qwer-10 (2005-07-07 19:19:00) [9]
fens (07.07.05 19:11) [3]
Это я ошибся :)

fens (2005-07-07 19:11:00) [10]
procedure FindFolders (const Path: String);
begin
procedure FindFiles (const: Path: String);
begin
...
end;

...
end;

в этом случае вложенность имеется?

Anatoly Podgoretsky (2005-07-07 16:25:00) [11]
А где тут вложенность?

Digitman (2005-07-07 16:21:00) [12]
если в этом есть резон, то ничто этому не мешает

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »