Текущий архив: 2003.06.16;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

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

Текущий архив: 2003.06.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c