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.
