Функция GetNextFile |
Функции GetFirstFile и GetNextFile предназначены для получения списка файлов из заданной директории.
Функция GetNextFile при каждом обращении возвращает имя очередного файла в соответствии с условиями выбора, заданными в GetFirstFile. Функция GetFirstFile должна быть вызвана перед первым обращением к GetNextFile.
function GetNextFile : string;
Функция последовательно возвращает имя очередного файла с условиями, заданными в GetFirstFile.
Если файл не найден, функция возвращает строковую константу strDataIsEmpty.
Для каждого файла с расширением 'sys' из директории 'c:\' выводится сообщение с его именем.
var str : string; str := GetFirstFile('c:\','*.sys'); while str <> strDataIsEmpty do { message(str); str := GetNextFile; }
Атлантис 5.3.07