Не могу выйти из цикла while

[mustaman]

Суть: есть некий диапозон значений которые мне надо генерировать, каждое значение надо использовать не более одного раза, хочу затолкнуть значение в строку и проверить есть значение в строке, если значение уже есть, то сформировать новое, когда новые значения перестают формироваться, я зацикливаюсь, что то не могу понять, как из цикла выйти, если я использовал все числа от 0 до 9, пока для удобства диапозон от 0 до 9

i:=random(Number)+1;
 while ((pos(IntToStr(i),rep)<>0) and (flag=false)) do
  begin
   i:=random(Number)+1;
   flag:=false;
  end;
 rep:=rep+IntToStr(i);
 flag:=true;

[Sciv]

В цикле:

if {условие} then begin
  rep:=rep+IntToStr(i);
  flag:=true;
end;

не?

Ну или так:

i:=random(Number)+1;
flag:=pos(IntToStr(i),rep)=0;
while not flag do
  begin
    i:=random(Number)+1;
    flag:=pos(IntToStr(i),rep)=0;
  end;
rep:=rep+IntToStr(i);
flag:=true;

[Serge_Bliznykov]

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

в-третьих, Вам самостоятельно нужно позаботится, чтобы цикл не стал бесконечным. Для этого достаточно подсчитать, сколько всего значений может быть получено, в цикле при получении каждого нового значения увеличивать счётчик и, как только счётчик достиг максимума - в цикл НЕ ВХОДИТЬ!

ну и, наконец, в чётвёртых, если нужно получить определённный набор случайных значений без повторений, а количество элементов в наборе строго ограниченное число (например, 36 карт), то выбранный Вами алгоритм КРАЙНЕ сложен и неэффективен - чем больше значений уже сгенерировано, тем больше вероятность, что Вы будете получать случайные значений из тех, что уже были ранее. а последнюю, 36-карту можно и десятки/сотни раз выбрасывать случайное значени, до тех пор, пока не выпадет единственное, которого ещё не было.
В подобных случаях НАМНОГО удобнее и эффективнее поступать так:
заполняем массив нужными значениями (подряд). перемешиваем случайным образом. Берём по очереди значения из массива (это будут случайные значения без повторов). Это просто, быстро и эффективно.

[Stertor]

Вы что, с ума все посходили?

Break;

[Serge_Bliznykov]

Stertor, Вы что с ума сошли, старую тему поднимать? Вам заняться больше нечем?!
тут Вас кормить не будут...

[Stertor]

А я буду, буду поднимать, потому, что мне обидно и больно за таких быдлокодеров.
Еще и вновь пришедших путаете.

[Пепел Феникса]

Сообщение от Stertor

А я буду, буду поднимать, потому, что мне обидно и больно за таких быдлокодеров.
Еще и вновь пришедших путаете.

если вы не заметили, то исправлен был исходный код ТС, или вы этого не заметили как и даты поста?
потому что это обрывок, и не видно зачем ему нужен и нужен ли flag.

[Stertor]

Нет, не заметил. И сейчас не вижу.