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 имеет простой строковый тип, но используется для хранения имён файлов.
Оставшиеся поля используются внутри поисковых подпрограммами - вы не можете их изменять.
Тип TSearchRec в Delphi: Нахождение всех файлов 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
Похожие функции, процедуры и команды
FileSearch — поиск файла в одной или более папках.
FindClose — закрывает успешный FindFirst поиск файла.
FindFirst — находит все файлы, соответствующие маске файла и атрибутов.
FindNext — находит следующий файл после успешного FindFirst.
