Текущий архив: 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.011 c
