Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
FindNext
Функция
Находит следующий файл после успешного FindFirst SysUtils unit
  function FindNext ( var SearchResults : TSearchRec ) : Integer;
Описание
Функция FindNext ищет следующий соответствующий файл, как определено в критериях поиска, данных предыдущим запросом FindFirst. Найденные подробности файла сохраняются в SearchResults, и возвращаемое получает значение - 0. Иначе возвращаемое значение - отрицптельное.

Вы, должны выполнить успешный FindFirst перед запросом этой подпрограммы.

После запроса FindNext вы должны вызвать FindClose, в последний раз, чтобы освободить ресурсы.
Похожие команды
FileSearch  Поиск файла в одной или более папках

FindClose  Закрывает успешный FindFirst поиск файла

FindFirst  Находит все файлы, соответствующие маске файла и атрибутов

TSearchRec  Запись, используемая для хранения данных в FindFirst и FindNext

 
Пример кода : Поиск всех файлов Unit1.d* в текущем каталоге
var
  searchResult : TSearchRec;

begin
  // Пробуем найти правильные файлы в текущем каталоге, соответствующие шаблону Unit1.d*
  if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
  begin
    repeat
      ShowMessage('Имя файла = '+searchResult.Name);
      ShowMessage('Размер файла = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;

Имя файла = Unit1.dcu
Размер файла = 4382
Имя файла = Uni1.dfm
Размер файла = 524
Имя файла = Uni1.ddp
Размер файла = 51
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия