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

[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

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

Если много вопросов, можно делать хотя бы так:

{проверяла в Делфи, TP нет под рукой}
var mas: array[0..1] of set of byte;
a: integer;
begin
a:=random(500); //в смысле, а - это номер твоего вопроса
include(mas[a div 255],a mod 255);
end;

почти хэш-таблица )

если количество вопросов заранее неизвестно - массив не подойдет, придется динамическую структуру ваять.

Сообщение отредактировано: мисс_граффити - 8.06.2007 15:14