TSearchRec - Тип. Справочник

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

Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика

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