Случайные числа

← →
Maxx (2003-06-03 14:07) [0]

Почему этот код периодически выдает подряд кучу одинаковых значений?

for i:=0 to 1000 do begin Randomize; x:= Random(99); (Components[i] as TLabel).Caption:= IntToStr(x); end;

Как от этого избавиться?

← →
Anatoly Podgoretsky (2003-06-03 14:13) [1]

Что у тебя Randomize делает в цикле?

← →
Думкин (2003-06-03 14:26) [2]

А как он узнает, что кучу одинаковых? Кэпшин не меняется? :-)

← →
Василий Иванович (2003-06-03 14:31) [3]

Randomize();
for i:=0 to 1000 do
begin
x:= Random(99);
(Components[i] as TLabel).Caption:= IntToStr(x);
end;

← →
Maxx (2003-06-03 14:44) [4]

Спасибо, понятно!

Случайные числа Найти похожие ветки