Неповторное считывание Опции

[John]

Рябета такая проблема. Я у меня в файл записаны вопросы и ответы
И при выводе он бывает считывает один и тот же вопрос (повторяет)
ТАк как это убрать?
вот так считывает и указатель на номер считывание ставит всегда в случайное положение, поэтому и повтор идет

  randomize;
  assign(f1, 'D:\BP\all\1.bin');
  reset(f1);
  n:=random(filesize(f1));
  seek(f1,n);
  read(f1, s1);
  close(f1);

Сообщение отредактировано: John - 7.06.2007 21:52

[мисс_граффити]

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

Добавлено через 1 мин.
кстати, никогда не пробовала: может, массив множеств сделать? тогда можно будет хранить информацию о большом количестве вопросов.

Размер файла большой? Если до 256 элементов, то заводи множество, и при установке позиции запоминай ее во множестве, а при генерации - пропускай варианты, которые уже были...

имхо, тут речь должна идти не о размере файла, а о количестве задаваемых за один запуск вопросов.