![]() |
![]() |
Ванек 03.08.2004 - 10:07 |
Ента прога просматривает каталог и выводит на экран содержимое каталога, подсадите как записать в файл то что она выводит. Program z; Uses DOS; var S: SearchRec; begin FindFirst('*.pas',AnyFile,S); while DosError = 0 do begin with S do WriteLn(Name:12,Size:12); FindNext(S) end end. |
Crey 1 - 03.08.2004 - 12:07 | Задай текстовый файл и выводи в него Name и Size. |
Ванек 2 - 03.08.2004 - 12:25 |
я попытался, но он написал 105 File not open for output (фаил не открыт для вывода) Вот че я написал: Program z; Uses DOS; var f:text; S: SearchRec; begin assign(f,'c:\output.txt'); reset(f); FindFirst('*.pas',AnyFile,S); while DosError = 0 do begin with S do WriteLn(Name:12,Size:12); writeln(f,Name:12,size:12); FindNext(S) end end. Но мне кажется енто че-то не то... :о) А где ошибка я не знаю. |
Crey 3 - 03.08.2004 - 12:34 |
После reset напиши rewrite(f) и все заработает. И не забудь закрыть файл после записи. PS// Rewrite открывает на перезапись. |
Ванек 4 - 03.08.2004 - 12:43 |
Пасиба!!! Но теперь он пишет "неизвестный идентефикатор" напротив Name и size. |
Crey 5 - 03.08.2004 - 12:44 | Убери размерность вывода. Для файла это не годится |
Ванек 6 - 03.08.2004 - 12:51 | Все равно ругается. |
Crey 7 - 03.08.2004 - 12:53 |
Reset(f); Rewrite(f); Write(f,Name,Size); |
Ванек 8 - 03.08.2004 - 12:54 | Все равно ругается. |
Ванек 9 - 03.08.2004 - 12:58 | прога просто не моя,а она мне подходит,но надо записать в фйл, а я не знаю как. как присвоить Name и Size свои переменные? Модет тогда получиться? |
Crey 10 - 03.08.2004 - 12:59 | f:File of Text; |
Crey 11 - 03.08.2004 - 13:00 | Опиши точнее ошибку. Ты тип файла какой определил? |
Ванек 12 - 03.08.2004 - 13:03 | он пишет: файлы и объекты не могут быть компонентами файла. |
Crey 13 - 03.08.2004 - 13:03 | Слей исходник на мыло. |
Crey 14 - 03.08.2004 - 13:21 | Ванек. Если не могеш на мыло то на страницу скинь. Поправлю и перекину. |
Ванек 15 - 03.08.2004 - 13:42 |
я тебе сбросил. не поймал? |
Crey 16 - 03.08.2004 - 14:10 | Ничего не дошло. Проверь адрес:crey@front.ru, oipc@front.ru |
Ванек 17 - 03.08.2004 - 14:21 | я отправил на оба ящика. |
Deflorator 18 - 04.08.2004 - 00:53 |
выводи в стандартный поток вывода через write & writeln, а вывод перенаправляй в файл так: my.exe > my.txt |