Помогите, есть цикл, который присваивает переменной значение из диапазона, а если такое число уже есть, то присваивает другое.
Код
Код:
repeat
randomize;
c1:=RandomRange(1,5);
until not AdoTable1.Locate('c1',c1,[loCaseInsensitive]);
Или такой
Код:
begin
randomize;
c1:=RandomRange(1,5);
while AdoTable1.Locate('c1',c1,[loCaseInsensitive]) do
begin
randomize;
c1:=RandomRange(1,5);
end;
Но, если все числа от единицы до пяти уже есть, то программа виснет.
Как можно закончить цикл?