Turbo Pascal Documentation

Процедура FindFirst

Модуль Dos

     Функция: Производит поиск в заданном (или текущем)  ка-
талоге  первой записи, соответствующей заданному имени файла
и набору атрибутов файла.
     Описание: FindFirst(маршрут: string; атриб : вуtе;  var
S: SearchRec)
     Примечания: Параметр "маршрут" определяет каталог, нап-
ример  "*.*". Параметр "атриб" определяет включение в список
рассматриваемых специальные файлы (наряду со всеми  обычными
файлами). Приведем список атрибутов файла, как они описаны в
модуле Dos:

  const
    { константы атрибутов файла }
   ReadOnly   = 01;  { только чтение }
   Hidden     = 02;  { "скрытый" файл }
   SysFile    = 04;  { системный файл }
    VolumeId   = 08;  { идентификатор тома }
   Directory  = 10;  { каталог }
   Archive    = 20;  { архивизация }
   AnyFile    = 3F;  { прочий файл }

     Результат поиска по каталогу  возвращается  в  заданной
записи  типа  SearchRec, который описывается в модуле Dos:

  type
   { тип SearchRec, использующийся в процедурах FindFirst
     и FindNext }
    SearchRec = record
                  Fill : array[1..2] of byte;
                  Attr : byte;
                  Time : longint;
                  Size : longint;
                  Name : string[12];
                end;

     Коды ошибки можно получить с помощью DosError.  Возмож-
ными  значениями  кодов  являются 2 (каталог не найден) и 18
(больше файлов нет).
     Прочее: См. также процедуру FindNext.
     Пример:

  uses Dos;
  var
    DirInfo : SearchRec;
  begin
    FindFirst('*.PAS', Archive, DirInfo); { то же, что и
                                            DIR *.PAS }
    while DosError = 0 do
    begin
      Writeln(DirInfo.Name);
      FindNext(DirInfo);
    end;
  end.