При использовании в своём коде ReadLn'а (удивительно, да? ), он работает, как нужно (неожиданно.. ). Как только я вписал кодик для того, чтобы создавался файл (либо вынимались данные из уже созданного), естественно со всеми assign, rewrite/reset, close, как положено, то обычная функция ReadLn (даже без дополнительных параметров типа readln(f,1)) вообще превращается в нечто для вылетания ошибки. Компиляции проходят успешно, но когда до этого ReadLn'а доходит в самой программе, то выдаёт ошибку 104: File not open for input. Нет, это я конечно понимаю, если бы я вставил этот РидЛн после "ассигна", не написав при этом "реврите/ресет" и не закрыв, то можно было бы согласиться с этой ошибкой. Но по какой причине он ко мне припирается в данном случае? о_0 Тем более ошибка "Файл не открыт для ввода", а функция Readln (прочитать), а не Writeln (записать). Что это за беспредел вообще?
Кстати, если писать просто "Read;", а не "ReadLn;", то всё нормально.. Но я хочу именно ReadLn... =\
Юзаю обычный Turbo Pascal досовский
Спасибо за внимание.
ReadLn после "assign" и "close", Что с ним? :) |