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 Плохиш
рекомендации по оптимизации принимаются :)

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

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

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