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
TSearchRec
Тип
Запись, используемая для хранения данных в FindFirst и FindNext SysUtils unit
  
TSearchRec = record
     Time        : Integer;
     Size        : Integer;
     Attr        : Integer;
     Name        : TFileName;
     ExcludeAttr : Integer;  
     FindHandle  : THandle;
     FindData    : TWin32FindData;
end;
Описание
Запись типа TSearchRecord определяет структуру данных, используемую подпрограммами FindFirst и FindNext для хранения информации искомого файла.

Time = Последняя дата и время изменения
Size = Размер файла в байтах
Attr = Атрибуты файла
Name = Имя файла

Где Attr может иметь следующие значения:

faAnyFile : Любой файл
faReadOnly : Файлы только для чтения
faHidden : Скрытые файлы
faSysFile : Системные файлы
faVolumeID : Файлы идентификаторы размера
faDirectory : Каталоги
faArchive : Архивные файлы

Обратите внимание: TFileName имеет простой строковый тип, но используется для хранения имён файлов.

Оставшиеся поля используются внутри поисковых подпрограммами - вы не можете их изменять.
Похожие команды
FileSearch  Поиск файла в одной или более папках

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

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

FindNext  Находит следующий файл после успешного FindFirst

 
Пример кода : Нахождение всех файлов 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   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия