Здравствуйте.
Нужна помощь... Как открыть файл, не зная его имя (задан только каталог, где находится)...
Заранее спасибо.
Файлы |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Файлы |
Unreal |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 15 Репутация: 0 |
Здравствуйте.
Нужна помощь... Как открыть файл, не зная его имя (задан только каталог, где находится)... Заранее спасибо. |
Altair |
Сообщение
#2
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Попробовал, не получилось.
(дальше для тех, кому интересно) Код Var f:file of string; fn:string; n:longint; begin assign(f,'a'); rewrite(f); fn:='aaaaa'; write(f,fn); fn:='bbbbbbb'; write(f,fn); close(f); end. Это запись файла. В результате в файле a, если его читать как текстовый, будет: aaaaa (потом до 256 символа пробелы), дальше: bbbbbbb И такая программа: Код Var f:file of string; fn:string; n:longint; begin readln(fn); assign(f,fn); reset(f); for n:=0 to filesize(f)-1 do begin seek(f,n); read(f,fn); writeln(fn); end; close(f); end. Работать не будет (она ничего не выведет на экран). Этот факт доказывает, что в памяти под простую строку резервируется 256 байт! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 29.04.2024 17:42 |