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]

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

можно так, например
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;

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