Цитата:
Сообщение от MrSTEP
Но меняем местами x:real; и k:integer; в описании переменных, и ловим k=0 на выходе, но верно выбранный из файла элемент.
|
Да, интересно. Поиграл с программкой. Всё так и есть. И более того.
Насколько я понимаю, всё это заморочки динамических размещений блоков в нетипизированных файлах, причем с необъявленной длиной блока. Между прочим, если размер блока задавать, т.е. вместо
rewrite(f) и reset(f) записать что-нибудь типа rewrite(f,10) и reset(f,10), то программа и вовсе пойдет вразнос, хотя сообщений об ошибках не будет.
А отсюда мораль: не выпендривайтесь (шутка, но...). Я вот использую во всех случаях жизни только файлы типа TEXT, а уж этими блоковыми записями-чтениями отродясь не пользовался. Ну их!