извините, я
внезапно обнаружил ошибку...
надо было вместо цикла FOR TO DO использовать REPEAT UNTIL.
теперь всё работает как надо.
----------
в русском хэлпе написано:
function readByte(res: resource):integer;
Считывает следующий байт из указанного ресурса или возвращает EOF, если больше нечего читать или произошла ошибка чтения из ресурса.
|
что это за EOF?
---------
и есть-ли библиотека которая записывает байт в файл?