Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Внизкак разорвать связь файловой переменной с файлом? Найти похожие ветки
← →
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. Видимо, причина ошибки в чём-то другом.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c