как разорвать связь файловой переменной с файлом?

← →
Nikoss © (2002-08-23 15:13) [0]

Здравствуйте.
Я связял файловую переменную 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) [1]

Из приведенного примера совершенно не видно, чтобы к моменту вхождения в цикл while у файловой переменной f оставалась какая-либо связь с файлом 1.txt: его сначала закрыли, потом сделали assign с файлом 2.txt, потом открыли уже 2.txt. Видимо, причина ошибки в чём-то другом.

как разорвать связь файловой переменной с файлом? Найти похожие ветки