Найти файлы по фильтрам

[Fakov]

Братцы, помогите разобраться(

Условие
Есть программа. Она находится в каком-то каталоге. В этом же каталоге есть папка допустим FIND. В этой папке могут быть а могут и не быть подпапки и есть сотня файлов.

Задача
Нужно найти в папке FIND среди всего ее содержимого, включая подпапки, файлы по следующим фильтрам:
1) c названием ABC (без учета расширения)
1.2) с содержанием в названии букв ABC (без учета расширения)
2) c буквой D в названии (без учета расширения)
3) файлы созданные не раньше чем 2 месяца назад(думаю можно через указание конкретной даты делать, да?).

Найденные файлы допустим удалить.
Как это по грамотнее провернуть?

[FaTaL]

Поиск файлов обсуждался очень много раз на этом форуме. Смотрите внизу страницы или пользуйтесь поиском.

[Serge_Bliznykov]

Полностью согласен с FaTaL!!

единственное, позволю себе добавить сюда на форум универсальный шаблончик рекурсивного обхода папок (в него легко дописать нужные проверки и нужные действия) зелёным в коде выделен текст, который позволяет выводить найденные имена файлов в Memo (TStringList) - это можно/нужно заменить на код, обеспечивающий нужные Вам действия!

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearch(Dir + SearchRec.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
          Sl.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

...
// вызов, например, так:
  DirSearch('C:\TEMP', '*.AVI', Memo1.Lines);

p.s. чтобы работал if MatchesMask(...) нужно в uses дописать Masks

[Armorer]

Если версия Delphi >= 2010, то посмотрите модуль IOUtils с ним такой поиск делать очень просто.