Ошибка При Чтении Файла

  • Автор темы yurk84
  • Дата начала
Y

yurk84

Гость
#1
Здравствуйте уважаемые форумчане!

У меня возникла проблема следующего рода. При применении функции Seek, которая позволяет применить прямой доступ к файлу у меня выбираются странные значения, которые без этой функции (от начала файла) выбираются как положено, В чём может быть проблема. Если другой аналогичный файл работал нормально, а другой почему-то не хочет. Вот необходимый кусок программы:

Код:
DIM nummer AS INTEGER
CONST numstart = 4949850
CONST NamefileSpins = "D:\BAZA\NUM_RAND"
OPEN NamefileSpins FOR BINARY ACCESS READ AS #1

SEEK #1, numstart	// переход в файле к заданному месту

DO
xx=xx+1
randnum=randnum+1
GET #1, , nummer				// выбора из файла, откуда берутся не те числа первое из них 256, а должно быть от 0 до 36
mas1(xx) = nummer
LOOP WHILE (randnum<25)
Заранее спасибо за помощь. Буду ждать ваши ответы