Работа с директориями и файлами Опции

[setare]

Здравствуйте! У меня очень легкая программа, но я не могу понять где в моем коде ошибка. Нужно найти все директивы и файлы и записать их в разных созданных файлах. Оно мне ничего не пишет. Что делать?

Исходный код

program files;
uses dos;
type
str79=string[79];
procedure find(var f,f1:text;mask:str79;attr:byte;S:searchRec);
begin
Findfirst('*.*',AnyFile,S);
while DosError=0 do
begin
if S.attr=$10 then
begin
writeln(f,S.name);
FindNext(s);
end
else
if S.attr=$3F then
writeln(f1,S.name,'-',s.size/1024:6:2)
end;
end;
var
flname:string[20];
f,f1:text;
pathstr:string[20];
begin
writeln('Vvedite put:');
readln(pathstr);
writeln('Vvedite imya 1 fila.');
readln(flname);
writeln('Vvedite imya 2 fila.');
readln(flname);
assign(f,flname);
assign(f1,flname);
rewrite(f);
rewrite(f1);



end.

[SHnur]

мы разве не используем rewrite когла хотим что-нибудь записать в файл?

:nono:
reset , rewrite и append используется для открытия файла для чтения или записи .

reset - открывает для чтения и записи существующий файл
append - открывает только для записи существующий файл
rewrite - создаёт новый файл и открывает его для чтения и записи

а уже после открытия файла можно читать или записывать в него используя
write/writeln(f,text) , read/readln(f) и (blockwrite , blockread для блочных файлов)

FAQ по файлам переписывать сюда зачем?

Сообщение отредактировано: volvo - 1.04.2005 23:15