Delphi-Help

Описание

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 имеет простой строковый тип, но используется для хранения имён файлов.

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

Пример кода

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

Примечание