Здравствуйте, Семен! А Вы ничего не путаете? FindFirst это функция для поиска первого файла. Для вывода на экран существует команда WriteWriteLn, вот ее и используйте. Ответ отправлен: 04.10.2004, 13:25 Отправитель: sir henry Отвечает Boriss
Здравствуйте, Семен! А какие проблемы? Смотри в приложении
Приложение: Ответ отправлен: 04.10.2004, 13:44 Отправитель: Boriss Отвечает Strory
Доброе время суток, Семен! С помощью findfirs на экран ничего вывести нельзя :))) Ну нашёл ты его, открывай, потом построчно (или посимвольно) выводи с помощью Write. В чём проблема-то? Ответ отправлен: 04.10.2004, 15:53 Отправитель: Strory Отвечает Василевский Александр
Здравствуйте, Семен! Если я правильно понял, то необходимо вывести на экран результаты поиска файла. Для поиска файлов используется следующая структура: SearchRec = RECORD fill: ARRAY [1..21] OF BYTE; attr: BYTE; time: LONGINT; size: LONGINT; name: STRING[12]; END; Для поиска файла и вывода его имени достаточно написать: VAR sr: SearchRec; ... FindFirst( '*.*', 0, sr ); WriteLn( 'File name: ', sr.name );
Ответ отправлен: 06.10.2004, 10:10 Отправитель: Василевский Александр
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.