HiAsm

Форумы Помощь по пакету FileSearch не хочет искать больше одного расширения. ← Ctrl12 3 4 5 6 7 8Ctrl →

Ответов: 9906

Рейтинг: 351

#1: 2016-03-27 17:28:45 ЛС | профиль | цитата

nesco, может и правда сделать "множественную маску"...
Типа, вот здесь:

#pas
procedure THIFileSearch.Search;
  .....
    end else if StrCmp(LowerCase(FindData.cFileName),FWorkExt) then begin
      inc(FCount);
      .....
  .....
end;

-- заменить StrCmp на свой метод, который и будет "множественно" вызывать тот же самый StrCmp
Вроде бы, риски небольшие...

карма: 9

Форумы Помощь по пакету FileSearch не хочет искать больше одного расширения. ← Ctrl12 3 4 5 6 7 8Ctrl →