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

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

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

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

Delphi

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' ...
Подскажите как в

Код

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

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

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

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

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

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

Не по теме:

я все сказал,уйди с темы.

@mss · 17.01.2013, 15:39

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

я все сказал

Уж больно ты грозен как я погляжу)

@Microo10 45 / 20 / 4 Регистрация: 18.08.2011 Сообщений: 395
	17.01.2013, 15:37 [ТС]	21
	Сообщение от mss Какой тебе "прок", мальчик, если ты мозг не можешь включить ? Не по теме: я все сказал,уйди с темы. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	17.01.2013, 15:39	22
	Сообщение от Microo10 я все сказал Уж больно ты грозен как я погляжу) 0