Чтение из файла For Random

[Sun07]

Не пойму, в файле одна запись, но читает 2, одну из файла и 2-ю пустышку, т.е. конец файла не определяется после чтения первой записи, заходит ещё раз на цикл. Wend это что, просто безусловный переход на While? Как же тогда правильно написать? AA определена пользовательской структуры.

Код: Выделить всё

    While Not EOF(hFile)
      Get hFile, , AA(i)
    Wend

[alibek]

Значит формат файла у тебя неправильный и после последней записи нет EOF.

[Sun07]

а вообще обязательно писать EOF в файл, бывают такие моменты, когда он решает? Сейчас я могу просто удалить лишнюю пустую запись, я думаю так проще, т.к. чтение происходит один раз, а запись многократно в программе и помнить за этот EOF накладно.