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

Вниз

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

← →
Vital_   (2004-06-23 21:26) [0]

Здраствуйте!
Возникла проблема, как из перечня значений
RadioGroup.Items - случайно
расставлять те же значения.
Зараннее благодарен!

---

← →
Fay ©   (2004-06-23 21:29) [1]

???!
Random?

---

← →
Vital_   (2004-06-23 21:30) [2]

А random привязать к количеству значений или к индексу?

---

← →
begin...end ©   (2004-06-23 21:32) [3]

Ну просто образец корректно сформулированного вопроса.

---

← →
default ©   (2004-06-23 22:43) [4]

можно так, например
procedure TForm1.Button1Click(Sender: TObject);
var
 i, Index: Byte;
 Buf: String;
begin
 Randomize;
 with RadioGroup1 do
 for i := 0 to Items.Count-1 do begin
  repeat
   Index := Random(Items.Count);
  until not (Index in [i]);
  Buf := Items[i];
  Items[i] := Items[Index];
  Items[Index] := Buf;
 end;
end;

---

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

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

Наверх

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