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

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

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

Процедура FindNext.

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

    Procedure FindNext(Var F : TSearchRec);

  • Описание:

    Находит следующее вхождение файла, соответствующего имени и набору атрибутов, определенных в предшествующем обращении к процедуре FindFirst.

  • Замечания:

    Ошибки сообщаются в переменной DosError. Единственная возможная ошибка - 18 (нет больше файлов).

  • Пример:

    { Пример программы для процедуры FindNext}
    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.



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