Рекурсия исключения псевдослучайных повторенных вариантов.

[chuikoff]

Есть список:

pre:= TstringList.Create;

В нём примерно такие строки:

[1]=1;
[2]=2;
[3]=3;
[4]=4;
..etc..

Далее появляется случайное число:

Randomize;
v:=1+Random(sit);

Но прежде чем выполнять следующую часть программы, мне нужно проверить, есть ли это случайное число в этом списке, если есть продолжаю, если нету снова получаю случайное число и сверяю с наличием в списке, если строк нету, заканчиваю выполнение, пишу что строк нету. Помогите кодом, как лучше реализовать?

ps. в списке не важно обращаться к значению или к индексу, они равные и одинаковые.

[maxionans]

ну ты покажи хоть какую-нибудь свою реализацию, мы же не будем писать код за тебя.

[Serge_Bliznykov]

1) при чём здесь рекурсия?!

2) нумерация в листе идёт от нуля.
а что в [0]= ????

3)

в списке не важно обращаться к значению или к индексу, они равные и одинаковые.

если индекс и значение (ну с учётом того, что индекс число, а содержимое - строка) ВСЕГДА равны (непонятно, правда, зачем подобное мутить - но Ваше дело!)
тогда проверить, если число в списке или нет:

 v:=1+Random(sit);
 if V <=  (pre.Count+1) then .... Есть в списке такое число
 else .... Нет в списке такого числа;

[phomm]

if v in [0..pre.count-1] then 
// продолжай 
else 
//нельзя

но это только при абсолютной гарантии, что индексы и данные равны.

И, да, нулик надо ))

[chuikoff]

Ладно, сформулирую по-другому:

#1

//Открываем файл БД для чтения
AssignFile(fdb,'db.txt');
Reset(fdb);
//Заполняем форму ответов и кол-во ситуаций
pse:= TstringList.Create;
 repeat
   readln(fdb,vid);//номер
   readln(fdb,otv1); //Название маяка
   readln(fdb,otv2); //Описание маяка
   readln(fdb,otv3); //Регион
   pse.add(vid);
   ProForm.ListBox1.items.add(otv1);
  until vid=sit;
  closefile(fdb);

в список pse добавляются ИД маяков, от 1 до 10. В лист-бокс названия маяков.

#2

//Получаем случайное изображение-задание
Randomize;
v:=1+Random(sit);
// Ищем ситуацию в файле
repeat
   readln(fdb,vid);//номер
   readln(fdb,otv1); //Название маяка
   readln(fdb,otv2); //Описание маяка
   readln(fdb,otv3); //Регион
until v=vid;
//Показываем изображение с полученным ИД
Image1.Picture.LoadFromFile('img/img_'+ IntToStr(v)+'.jpg');

Далее я нажимаю кнопку ответить. Из списка pse удаляется строка с номером V.
И вот мне интересно, те элементы что выше v поменяют индекс на единицу меньше, или строка просто высвободится, т.е.
Если выпало 4, то после удаления будет
pse[1]=1
pse[2]=2
pse[3]=3
............здесь было 4
pse[5]=5
pse[6]=6

Но если индекс элементов меняется после удаления, тогда нужно удалять значение, чтобы строка становилась пустой, и тогда проверять
pse[v]='' это значит что ситуация уже была, и тогда снова подобрать случайное число, и проверить на пустоту строки, если пустая, ищем новое число случано и делаем тоже самое, если значение есть, то выполняем код дальше.