Сканирование папок. Требуется добавить фильтр!

[Anfall]

Использую функцию для сканирования папок

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls: String;
   i: integer;
begin
  Result:=TStringList.Create;
  if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
  if FindFirst(Path+'\*.*',faAnyFile,Rec)=0 then
    begin
     if (Rec.Name<>'.')and(Rec.Name<>'..') then
       if (Rec.Attr and faDirectory) <> 0 then begin
       TMP:=GetFiles(Path+Rec.Name,True);
       Result.AddStrings(TMP);
       TMP.Free;
       end else Result.Add(Path+Rec.Name);

     while FindNext(Rec)=0 do
       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);
       end;
    end;

end;

Помогите разобраться и добавить фильтры. Чтобы находились только '.mp3' файлы. Что - то мне не разобраться(

[KORN]

if FindFirst(Path+'\*.mp3',faAnyFile,R ec)=0 then

[Anfall]

Спасибо, но вообще ничего не ищет(
18:06
ТО есть ищет, но в подпапках - нет(

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

[KORN]

procedure TForm2.FindFile(Dir:String);
Var
  SR:TSearchRec;
  FindRes, FS: integer;
begin
  FindRes:=FindFirst(dir+'*.mp3',faAnyFile,SR);

  While FindRes=0 do
  begin
  application.ProcessMessages;


    if ((SR.Attr and faDirectory)=faDirectory) and
    ((SR.Name='.')or(SR.Name='..')) then
    begin
    FindRes:=FindNext(SR);
    Continue;
    end;

    if ((SR.Attr and faDirectory)=faDirectory) then
    begin
    FindFile(Dir+SR.Name+'\');
    FindRes:=FindNext(SR);
    Continue;
    end;

   memo1.lines.add(dir+sr.name);
    FindRes:=FindNext(SR);
  end;
  FindClose(SR);
end;

этот ищет везде

[Anfall]

Спасибо! Но все - таки если есть возможность отредактируйте именно тот код!

[mihali4]

Редактирую:

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls,ex: String;
   i: integer;
   ok: integer;
begin
Result:=TStringList.Create;
if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
ok:=FindFirst(Path+'\*.*',faAnyFile,Rec);
while ok=0 do
begin
if (Rec.Name<>'.')and(Rec.Name<>'..') then
if (Rec.Attr and faDirectory) <> 0 then begin
TMP:=GetFiles(Path+Rec.Name,True);
Result.AddStrings(TMP);
TMP.Free;
end else
begin
ex:=ExtractFileExt(Rec.Name);
if ex='.mp3' then
Result.Add(Path+Rec.Name);
end;
ok:=FindNext(Rec);
end;

end;

З.Ы. На будущее - негоже в одной процедуре (функции) дублировать один и тот же кусок кода:

       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);

[Anfall]

Спасибки!)))