Randomize

[alman12]

исключить определенные числа введенные в edit1 random


var
int : Integer;
i : Integer;
begin
for i := 1 to 1 do
begin
int := Randomrange(spinedit1.value,spinedi t2.value);

[maloun]

Я правильно понял, что вам нужно составить range,
зная его начало и конец и исключить из него промежуточный элемент?
Или нужно число из промежутка FirstNum + Random(100) ?

[alman12]

чтобы цифры в edit1 не сгенерировались

[maloun]

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

чтобы цифры в edit1 не сгенерировались

Генерация это грубо говоря создание(сборка), если вам нужно не создавать,
просто не пишите код, если у вас задача посложнее - потрудитесь объяснить.

[alman12]

нужно создават
число введенные в edit1 не сгенерировалис
исключить цифры введенные в edit1

[maloun]

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

нужно создават
число введенные в edit1 не сгенерировалис

function GenerateNum:Integer;
begin
  Result:=Random(10);
end;
Edit1.Text:=IntToStr(GenerateNum);


...
// или что-то такое?
var
  str:String;
begin
  str:='123456'
  str:=Copy(str,1,2) + Copy(str,5,2); // 1256 
  Edit1.Text:=str; // how about that?

Так. Это запись Random числа в Edit, что вы хотите НЕ делать?

[BDA]

Как бы я сделал:
1) Определить N - количество оставшихся в диапазоне чисел (размер диапазона минус все попавшие в него числа из эдита)
2) Получить K = random(N)
3) Переводить число из диапазона 0..N-1 в диапазон с разрывами spinedit1.value..spinedit2.value
3.1) К числу K прибавить spinedit1.value
3.2) Идти по сформированному массиву из выкидываемых чисел, отсортированных по возрастанию, и увеличивать K на единицу каждый раз, когда встречаем число меньше или равное K
3.3) Выдать K

Шаг 3.3 можно оптимизировать, применив бинарный поиск.

[maloun]

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

Шаг 3.3 можно оптимизировать, применив бинарный поиск.

Да какой поиск, он даже не сказал, чего хочет.

[BDA]

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

Да какой поиск, он даже не сказал, чего хочет.

Просто я - телепат, а Вы - нет

[Человек_Борща]

alman12 это такой тип людей, которых надо под пытками допрашивать, что узнать что им надо.

По вопросу:
Ну так и проверяйте, если число в edit1 < Spin2.Value то Spin2.Value = edit1 - 1.