![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Автоматическое получение следующего имени файла в каталогеDelphi , Файловая система , Директории
Автор: Igor Kovalevsky { **** UBPFD *********** by delphibase.endimus.com **** >> Функция предоставляет Вам каждый раз новое имя файла, а если список файлов исчерпан, начинает перебор снова. Может пригодиться при написании Вашего собственного слайдшоу с фотографиями или в похожих задачах, где важно не повторить до конца списка уже воспроизведённый файл. Зависимости: Windows, Messages, SysUtils, Classes, DIALOGS; Автор: Igor Kovalevsky, pc-ambulance@mail.ru, Владикавказ Copyright: Igor Kovalevsky Дата: 1 июня 2002 г. ***************************************************** } function GetNextFileName(Path: string): string; const ListFileName = 'ListFile.lst'; FileMask = '*.*' var SearchRec: TSearchRec; begin with TStringList.Create do begin if FileExists(ListFileName) then begin LoadFromFile(ListFileName); end; if FindFirst(IncludeTrailingBackslash(Path) + FileMask, faAnyFile and not faDirectory, SearchRec) = 0 then begin // Редкий случай, когда цикл repeat..until // на что-то годится repeat Result := SearchRec.Name; if (FindNext(SearchRec) <> 0) then begin Clear; end; until (IndexOf(Result) = -1); Add(Result); FindClose(SearchRec); end else begin Result := ''; end; SaveToFile(ListFileName); Free; end; end; Пример использования: ShowMessage(GetNextFileName('C:\Windows\')); Перевод контента на русский язык: Функция Delphi под названием Вот разбивка кода: Зависимости: Функция требует загрузки модулей Windows, Messages, SysUtils, Classes и DIALOGS для работы. Переменные:
Переменная Тело функции:
Функция работает следующим образом:
Пример использования: Для использования этой функции просто вызовите ее с параметром пути директории, например:
Это отобразит следующее имя файла в директории В статье описывается функция на языке Delphi, которая автоматически получает следующее имя файла в каталоге, если список файлов исчерпан, она начинает перебор снова. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Директории ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |