• 0
Вольдемар

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

Вопросы

1 ответ на этот вопрос

  • 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);
...

 

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


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

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти


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

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