Скачать: CL | DM;

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?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c