Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура FindFirst.

  • Объявление:

    Procedure FindFirst(Path : PChar; Attr : Word; Var F : TSearchRec);

  • Описание:

    Ищет файл в заданном каталоге.

  • Замечания:

    Ищет в определенном (или текущем) каталоге первое вхождение файла, соответствующего заданному имени и набору атрибутов.

  • Пример:

    { Пример программы для процедуры FindFirst}
    Uses WinDos, WinCrt;
    Var DirInfo : TSearchRec;
    Begin
    FindFirst('*.PAS', faArchive, DirInfo);
    { Аналог команды DIR *.PAS }
    While DosError = 0 Do
    Begin
    WriteLn(DirInfo.Name);
    FindNext(DirInfo);
    End;
    End.



Вернуться к оглавлению справочника