Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Авг

Поиск файла по указанному пути

Posted by Chas under Delphi, Пост-обзор

Доброго времени суток! Мне нужна помощь… это касается поиска файла.
Допустим иметься некий файл file.txt по адресу c:\123\навание_папки_которое_я_не_з наю\file.txt
Так вот как мне этот файл найти если я знаю только первоначальный путь к нему?!

Serge_Bliznykov:
FindFirst + FindNext

// для работы функции MatchesMask()

//   добавьте в uses модуль Masks 
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;
procedure TForm1.Button1Click(Sender: TObject);

begin

  DirSearch('C:\123\', 'file.txt', Memo1.Lines);

end;