Mail

В этот день много лет назад...
22 апреля. В 1838 году (188 лет назад) - Впервые пароход пересек Атлантический океан. В гавань Нью-Йорка прибывает английский корабль "Сириус". Он затратил на путешествие 18 дней и 10 часов и всего на несколько часов опередил конкурента - пароход "Грейт Вестерн", который ушел в море на четыре дня позже. В 1819 океан пересекал американский корабль "Саванна", но на нем паровые двигатели были вспомогательным средством и большая часть плавания прошла под парусами.

Turbo Pascal Documentation

Процедура FindNext
Модуль Dos

     Функция: Возвращает  следующую  запись,  совпадающую  с
именем и атрибутами файла, указанными при предыдущем обраще-
нии к процедуре FindFirst.
     Описание: FindNext(var s : SearchRec)
     Примечания: Параметр s должен быть таким  же,  как  при
обращении  к  FindFirst  (тип SearchRec описывается в модуле
Dos; см. процедуру FindFirst). С помощью DosError можно  по-
лучить  код ошибки. Единственно возможным кодом является код
18, указывающий на отсутствие файлов.
     Прочее: См. также процедуру FindFirst.
     Пример: См. пример для процедуры FindFirst.