Объясните пожайлуста, в чем ошибка?

← →
Nikoss © (2002-08-24 19:38) [0]

Объясните пожайлуста, в чем ошибка? На вот этот код
AssignFile(f,FName);
Reset(f);
k := 0;
While not EOF(f) do //точка остановки компилятора
begin
Readln (f);
inc(k);
end;
CloseFile(f);
выдается ошибка Project1.exe raisedexception class EInOutError whith message "I/O error 104" Process stopped... Не могу понять в чем дело?

← →
Anatoly Podgoretsky © (2002-08-24 19:46) [1]

File not open for input

← →
Mikhail © (2002-08-24 20:13) [2]

>Anatoly Podgoretsky © (24.08.02 19:46)
File not open for input

?

← →
RV © (2002-08-24 20:20) [3]

104 File not open for input
Reported by Read, Readln, Eof, Eoln, SeekEof, or SeekEoln on a text file if the file is not open for input.

← →
Anatoly Podgoretsky © (2002-08-24 20:21) [4]

Ты вопрос задаешь? Так создай свою ветку.

← →
Mikhail © (2002-08-24 20:25) [5]

Дело в том, что именно его код работает...

← →
Anatoly Podgoretsky © (2002-08-24 20:26) [6]

Ты не можешь говорить о его коде, здесь не весь код

← →
Mikhail © (2002-08-24 20:33) [7]

Безусловно.
Объясните пожайлуста, в чем ошибка? На вот этот код ...

← →
Anatoly Podgoretsky © (2002-08-24 21:19) [8]

На вот этот код ... ошибка нет

← →
RV © (2002-08-24 21:29) [9]

Reset(f);
....
Readln (f);

так можно?

Да допустимая конструкция, я часто пользуюсь, читает строку в свой буфер

ну надо же!
а по скольку считывает?
следующее считывание затирает?
s:string; s:=f на определенной итерации возможно?
Прошу прощение за вопрос(ы) не в своей ветке....

ReadLn(F, S [, S1...])

Объясните пожайлуста, в чем ошибка? Найти похожие ветки