Автоматическое получение следующего имени файла в каталоге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 и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Директории ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |