Перейти к содержанию
  • Регистрация
  • 0
Вольдемар

Как задать маску для TDirectory.GetFiles

Вопрос

Рекомендуемые сообщения

  • 0

Я делал так :

...

 Filt := TBitmapCodecManager.GetFileTypes;
 FiltExt := TDictionary<string,boolean>.Create;
 A := Filt.Split([';']);
 for i := 0 to High(A) do
  FiltExt.AddOrSetValue(String.LowerCase(A[i].Remove(0,1)),False);

...

 Files := TDirectory.GetFiles(IncludeTrailingPathDelimiter(DirName),'*.*',
 function(const Path: string; const SearchRec: TSearchRec): Boolean
 var
  SR: TSearchRec;
  S : String;
 begin
  S := String.LowerCase(TPath.GetExtension(SearchRec.Name));
  Result := FiltExt.ContainsKey(S);
  if Result then
  begin
    SR := SearchRec;
    SR.Name := Path + SR.Name;
    FCurrentDirectoryFiles.Add(SR);
  end;
 end);
...

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...