Скачать: CL | DM;

randomize   Найти похожие ветки 

← →
alex-kosmonavt   (2005-06-29 12:51) [0]

Использую Randomrange для получения ряда чисел (500 штук) в цикле.
Как положено перед циклом запускаю процедуру randomize, но такое ощущение что она не срабатывает, ибо вот я смотрю как гененрируются числа, и удивляюсь , они все генерируруются по возрастанию, т.е. примерно так идет результат 1,12, 45, 345, 567, 723 и т.д. и нет совсем последовательностей типа   1, 15, 7, 567, 324 т.е в разброс

скажите это нормально????? может я чего не так делаю?

---

← →
koderman ©   (2005-06-29 12:55) [1]

> но такое ощущение что она не срабатывает

Как видно из этого примера

> результат 1,12, 45, 345, 567, 723

или
>  1, 15, 7, 567, 324

срабатывает

---

← →
Digitman ©   (2005-06-29 12:55) [2]

> может я чего не так делаю?


может чего и не так ...

код приводи ...

---

← →
alex-kosmonavt   (2005-06-29 13:07) [3]

Именно не срабатывает

т.е. последовательностей типа  1, 15, 7, 567, 324  не получается

мой код ниже


begin
Randomize;

MaxWinner:=20;
for i:=1 to maxwinner do
begin

 qMainPrize.Close;
 qMainprize.SQL.Clear;
 qMainPrize.SQL.Add("SELECT ID FROM PLAY WHERE ID NOT IN (SELECT ID FROM Winner) and i=:Par_ID");
 qMainPrize.Parameters.ParamByName("Par_ID").Value:=RandomRange(1,106330);
 qMainPrize.Open;
 While qMainPrize.RecordCount<1 do
   begin

     qMainPrize.Close;
     qMainprize.SQL.Clear;
     qMainPrize.SQL.Add("SELECT ID FROM PLAY WHERE ID NOT IN (SELECT ID FROM Winner) and i=:Par_ID");
     qMainPrize.Parameters.ParamByName("Par_ID").Value:=RandomRange(1,106330);
     qMainPrize.Open;
   end;
      qIns.SQL.Clear;
      qIns.SQL.Add("INSERT INTO Winner (ID) VALUES (:PAR_ID)");
      qIns.Parameters.ParamByName("PAR_ID").Value:= qMainPrize.Fields[0].AsInteger;
      qIns.ExecSQL;
end;

end;


---

← →
Плохиш ©   (2005-06-29 13:15) [4]

> alex-kosmonavt   (29.06.05 13:07) [3]

Судя по коду, всё прекрасно получается :-)
ID - индекс небось? Отсюда и всё отсортировано при отображении.

PS. Ужастный код :-(

---

← →
Digitman ©   (2005-06-29 13:23) [5]

то что ты видишь в таблице, соответствует не физическому порядку добавления записей, а порядку, определяемому индексом по полю Winner.ID

---

← →
alex-kosmonavt   (2005-06-29 13:30) [6]

to Плохиш
рекомендации по оптимизации принимаются :)

---

← →
Плохиш ©   (2005-06-29 13:34) [7]

> alex-kosmonavt   (29.06.05 13:30) [6]

Использовать свойство Text и не использовать параметры.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c