К списку форумов К списку вопросов
Вопросик: Есть код проги,но я не знаю как записать то что она делает в файл.
Ванек
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

К списку вопросов на форуме Программирование

>>