Randomize

← →
VirusIP © (2004-04-14 22:57) [0]

var i:integer;
begin
Randomize;
for i:=1 to 3 do
begin
if i=1 then Radiobutton1.Checked:=True;
if i=2 then RadioButton2.Checked:=True;
if i=3 then RadioButton3.Checked:=True;
end;
end;
-->Все это происходит при нажатии на кнопку.Но я незнаю как сделать чтобы это все происходило случайным образом...Подскажите что делать

← →
Avenger[NhT] © (2004-04-15 00:29) [1]

А причем тут Kol?

← →
SPeller © (2004-04-15 03:49) [2]

Господи, одну ветку отправил в основную, вторую опять тут. :) Если я не ошибаюсь, то Randomize лучше вызывать один раз, например в OnCreate формы. Это раз. А вод два :-)))))) Твой код - это просто супер! Зачем же ты в цикле по очереди отмечаешь первый, второй, а потом третий батон??? Ладно, не буду мучать тебя, подскажу. Надо так:

I := Random( 3 ) + 1; case I of 1: Radiobutton1.Checked:=True; 2: Radiobutton2.Checked:=True; 3: Radiobutton3.Checked:=True; end;

← →
Alekc (2004-04-17 15:31) [3]

Не совсем...

I := Trunc(Random(3)); Case I of 0: Radiobutton1.Checked := True; 1: Radiobutton2.Checked := True; 2: Radiobutton3.Checked := True; end;

← →
ssk (2004-04-17 15:38) [4]

а зачем здесь Trunc?

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