как разорвать связь файловой переменной с файлом?
Nikoss © (2002-08-23 15:13:00)
Здравствуйте.
Я связял файловую переменную f с текстовым фалом 1.txt. В
процессе работы программы нужно, чтобы фаловая переменная f была
связанна с другим фалом 2.txt. Вопрос заключается в следующем, как
разорвать связь файловой переменной с файлом?
Для лучшего понимания приведу пример
Procedure proc;
var f : TextFile;
k : Integer;
begin
assignFile(f, "1.txt");
Reset (f);
...
CloseFile(f);
assignFile(f, "2.txt");
Reset (f);
While not EOF(f) do //
выдается ошибка
begin //
Project1.exe raisedexception
Readln (f); //
class EInOutError whith message
inc(k); //
"I/O error 104" Process stopped...
end;
PVOzerski (2002-08-23 15:35:00) [1]
Из приведенного примера совершенно не видно, чтобы к моменту
вхождения в цикл while у файловой переменной f оставалась
какая-либо связь с файлом 1.txt: его сначала закрыли, потом сделали
assign с файлом 2.txt, потом открыли уже 2.txt. Видимо, причина
ошибки в чём-то другом.
Наверх 
ЧАТ |
Орешник |
|
