Рекурсивный обход дерева папок

@Microo10 · Регистрация: 18.08.2011

Студворк — интернет-сервис помощи студентам

Вот код рекурсивного обхода всех папок в директории :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure FindFiles(const DirPath: string; Str: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(DirPath + '\*.ts', faAnyFile, SR) = 0 then
try
repeat
if not ((SR.Name = '.') or (SR.Name = '..')) then
begin
if SR.Attr = faDirectory then
FindFiles(DirPath + '\' + SR.Name, Str)
else
Str.Add(SR.Name);
end;
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
FindFiles('C:\test', Memo1.Lines);
end;

Данный код ишет файлы (*.ts) во всех папках 'C:\test' ...
Подскажите как в

Code
1
if FindFirst(DirPath + '\*.ts', faAnyFile, SR) = 0 then

вместо *.ts поместить переменную?
Заранее спасибо.

Добавлено через 5 минут
P.s переменных должно быть две : НазваниеФайла.Расширение

@mss · 17.01.2013, 13:17

Code
1
if FindFirst(DirPath + '\' + НазваниеФайла + '.' + Расширение, faAnyFile, SR) = 0 then

@Microo10 · 17.01.2013, 13:28 **[ТС]**

Сообщение от mss

Code
1
if FindFirst(DirPath + '\' + НазваниеФайла + '.' + Расширение, faAnyFile, SR) = 0 then

блин я то же самое писал,он ругался...а щяс все норм

Добавлено через 7 минут
Спасибо,а можно как нибудь переменные встроить в процедуру? У меня именно это не получилось,просто у меня много масок и они будут по очереди добавляться в процедуру...вот так:

Code
1
FindFiles('C:\A' ,'mask1','mask2', Memo1.Lines);

@mss · 17.01.2013, 13:35

Code
1
FindFiles('C:\A' , Переменная_mask1, Переменная_mask2, Memo1.Lines);

@Microo10 · 17.01.2013, 13:39 **[ТС]**

Сообщение от mss

Code
1
FindFiles('C:\A' , Переменная_mask1, Переменная_mask2, Memo1.Lines);

ты издеваешься? Эта строчка просто сообщает данные,а процедура их явно не будет воспринимать.

@mss · 17.01.2013, 13:51

Сообщение от Microo10

а процедура их явно не будет воспринимать

А самостоятельно добавить пару формальных параметров в объявление и реализацию процедуры FindFiles религия не позволяет ?

@Microo10 · 17.01.2013, 13:59 **[ТС]**

Сообщение от mss

А самостоятельно добавить пару формальных параметров в объявление и реализацию процедуры FindFiles религия не позволяет ?

Я для этого на форум и обратился,не получается.

@mss · 17.01.2013, 14:23

Сообщение от Microo10

не получается

Интересно, как же у тебя получалось до этого ?

В текущем варианте, т.е.

Code
1
procedure FindFiles(const DirPath: string; Str: TStrings);

ты же как-то додумался объявить два формальных параметра)
А объявить плюс к существующим еще два дополнительных - это уже полный ступор ?

@Microo10 · 17.01.2013, 14:27 **[ТС]**

Сообщение от mss

Интересно, как же у тебя получалось до этого ?

В текущем варианте, т.е.

Code
1
procedure FindFiles(const DirPath: string; Str: TStrings);

ты же как-то додумался объявить два формальных параметра)
А объявить плюс к существующим еще два дополнительных - это уже полный ступор ?

Объявлял я,но там компилятор ругался,код процедуры не мой,я с рекурсивным обходом работаю впервые.

@mss · 17.01.2013, 14:31

Сообщение от Microo10

с рекурсивным обходом работаю впервые

А причем здесь "рекурсивный обход" ?
Можно подумать, что если процедура бы делала что-то иное и нерекурсивно, то проблем с добавлением в нее формального параметра у тебя бы не было ..

@Microo10 · 17.01.2013, 14:34 **[ТС]**

Сообщение от mss

А причем здесь "рекурсивный обход" ?
Можно подумать, что если процедура бы делала что-то иное и нерекурсивно, то проблем с добавлением в нее формального параметра у тебя бы не было ..

Да блин,после того как я формальные переменные добавил в процедуру,компилятор начал ругаться на строку

Delphi
1
FindFiles(DirPath + '\' + SR.Name, Str)

Не по теме:

И прекратите бессмысленный флуд в теме.

@mss · 17.01.2013, 14:40

Сообщение от Microo10

после того как я формальные переменные добавил в процедуру

Я не вижу что ты их добавил.
Так что вперед - добавляй и показывай что тобой лично сделано, потом будешь рассуждать про "ругается" и про "флуд".

@Microo10 · 17.01.2013, 14:56 **[ТС]**

Сообщение от mss

Я не вижу что ты их добавил.
Так что вперед - добавляй и показывай что тобой лично сделано, потом будешь рассуждать про "ругается" и про "флуд".

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure FindFiles(const DirPath: string; mask1,mask2:string; Str: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(DirPath + '\' + mask1 + '.' + mask2, faAnyFile, SR) = 0 then
try
repeat
if not ((SR.Name = '.') or (SR.Name = '..')) then
begin
if SR.Attr = faDirectory then
FindFiles(DirPath + '\' + SR.Name, Str)
else
Str.Add(SR.Name);
end;
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 FindFiles('C:\A','test','txt' , Memo1.Lines);
end;

@mss · 17.01.2013, 15:04

Чудесно, лед тронулся.
Едем дальше:

Сообщение от Microo10

FindFiles(DirPath + '\' + SR.Name, Str)

А во вложенном вызове, где у тебя изменения с учетом #2 ?

@Microo10 · 17.01.2013, 15:13 **[ТС]**

mss, ты можешь понятнее говорить?

Добавлено через 5 минут
P.S Если я обращаюсь на форум,то мне нужен внятный ответ,где ошибка,как исправить и т.д . Мне не нужны подробные объяснения. Нужна реализация рекурсивного обхода папок директории,срочно.

@mss · 17.01.2013, 15:14

Сообщение от mss

FindFiles(DirPath + '\' + SR.Name, Str)

Измени список и значения фактических параметров этого вложенного вызова так, чтобы они учитывали и использовали два дополнительно объявленных тобой формальных параметров.

Что я сказал непонятного ?

Добавлено через 1 минуту

Сообщение от Microo10

срочно

Срочно - это тебе во Фриланс.
А здесь изволь думать.

@Microo10 · 17.01.2013, 15:29 **[ТС]**

Сообщение от mss

Измени список и значения фактических параметров этого вложенного вызова так, чтобы они учитывали и использовали два дополнительно объявленных тобой формальных параметров.

Что я сказал непонятного ?

О да,а как это решит проблему несовместимости типов?

Delphi
1
Incompatible types: 'string' and 'TStrings'

@mss · 17.01.2013, 15:30

Сообщение от Microo10

как это решит проблему несовместимости типов?

Нет никакой "проблемы несовместимости типов", если думать.

@Microo10 · 17.01.2013, 15:33 **[ТС]**

Сообщение от mss

Нет никакой "проблемы несовместимости типов", если думать.

Гуляй лесом,от вас проку нет.

@mss · 17.01.2013, 15:36

Какой тебе "прок", мальчик, если ты мозг не можешь включить ?

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Microo10 45 / 20 / 4 Регистрация: 18.08.2011 Сообщений: 395
	17.01.2013, 15:13 [ТС]
	mss, ты можешь понятнее говорить? Добавлено через 5 минут P.S Если я обращаюсь на форум,то мне нужен внятный ответ,где ошибка,как исправить и т.д . Мне не нужны подробные объяснения. Нужна реализация рекурсивного обхода папок директории,срочно. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.01.2013, 15:36
	Какой тебе "прок", мальчик, если ты мозг не можешь включить ? 0