Случайное значение из списка

[mitiay]

Подскажите как показать случайное значение из списка без повтора
Есть список 1(а),2(а),3(а),4(а),5(а),6(а),7(а), 8(а),9(а),10(а)

[Stilet]

Чет я реально вопроса не понял... Что за список? Где расположен? Что значит "без повтора"? Тебе как в WinAMP-е нужно рандомно значения перемешать?

[mitiay]

нужно сделать так
Из этих значений нужно показать одно случайное," без повтора" - это чтоб одно и тоже значение не выходило повторно пока не сбросишь счет
1(а),2(а),3(а),4(а),5(а),6(а),7(а), 8(а),9(а),10(а)
1(b),2(b),3(b),4(b),5(b),6(b),7(b), 8(b),9(b),10(b)
допустим Showmessage
Записывать их обсалютно без разницы куда

[Аватар]

Сделай массив со ссылками на элементы списка. Рандомно выбери элемент из N элементов и удали его из массива, например сдвигом хвоста массива. Рандомно выбери из N-1 элементов и т.д. Если список не нужно сохранять, то можно напрямую из него брать и удалять

Из этих значений нужно показать одно случайное

А куда делось слово без повторов? Я, блин, старался расписывал

Опять появилось, короче хрен поймешь

[Stilet]

короче хрен поймешь

Та да...
Похоже что ТС требует это:

List.Append('1(а)');
List.Append('2(а)');
...
List.Append('10(а)');
...

i:=random(List.Count);
...:=List[i]; List.Delete(i);

[mitiay]

Смотри, обьясню по подробнее )))
Есть значения:
1(а),2(а),3(а),4(а),5(а),6(а),7(а), 8(а),9(а),10(а)
1(b),2(b),3(b),4(b),5(b),6(b),7(b), 8(b),9(b),10(b)
Нажимаю на кнопку выходит сообщение с рандомным значением из списка "6(b)" тем самым 6(b) удаляется из списка
нажимаю на кнопку выходит сообщение с рандомным значением из списка "(1а) " тем самым 1а удаляется из списка

нажимаю на кнопку "Востановить" 1а и 6b возращаются в общий список

var  i:integer;
    s:string;
begin
for i := 0 to (ListBox1.Items.Count - 1) do begin
s:=Random(ListBox1.Items[i]);
showmessage(s);

что не так?

[Stilet]

что не так?

Все не так. Сравни с моим примером: random() принимает число, а не класс TStrings.
И возвращает число, а не строку.

[mitiay]

Сообщение от Stilet

Все не так. Сравни с моим примером: random() принимает число, а не класс TStrings.
И возвращает число, а не строку.

var s:string;
    i:integer;
begin
s:=ListBox1.Items[random(ListBox1.Items.Count)];
showmessage('значение:'+s +'номер строки');

Со значением разобрался а вот с номером не могу(((помогите плз

[Stilet]

Во-первых: Код выделяй спецтегом по кнопке # в панели инструментов поста
Во-вторых: Каким номером? Я ниче не пойму...

[newerow1989]

mitiay, вот код:

var s:string;
    i:integer;
begin
i:=random(ListBox1.Items.Count);
s:=ListBox1.Items[i];
showmessage('значение: '+s +' Номер строки: '+IntToStr(i));