Справочник функций и процедур Delphi: TSearchRec

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

TSearchRec
Тип
Запись, используемая для хранения данных в FindFirst и FindNext SysUtils unit
  
TSearchRec = record
     Time        : Integer;
     Size        : Integer;
     Attr        : Integer;
     Name        : TFileName;
     ExcludeAttr : Integer;  
     FindHandle  : THandle;
     FindData    : TWin32FindData;
end;

Google  
 
Описание
Запись типа 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook