Вопрос по delphi - вывести на одну из кнопок рандомное слово из списка без повторов

[fallenx]

Добрый вечер! Пожалуйста помогите, уже дня 3 думаю и не как не приду к решению легкой задачи
У меня есть список слов.
Мне нужно вывести на одну из кнопок рандомное слово из этого списка, но при том чтобы не было повтора! при нажатии этой кнопки слово бы менялось, но предыдущее должно выбрасываться и больше не быть на этой кнопке.
Вот такая программа.
Заранее спасибо, друзья!

[evg_m]

смотри здесь
перемешать и брать (перемешаное) по порядку.

[Serge_Bliznykov]

evg_m, +1

дополню.
опишите ГЛОБАЛЬНУЮ переменную (это в той же секции, где у Вас написано var Form1 : TForm1;
дописать, например, IndexRndStr : integer;

Перемешать список один раз (лучше на событии FormCreate) создать нужный TStringList, заполнить его словами, перемешать.
уставить указательно на первое слово.
вот так
IndexRndStr := 0;

потом, при каждом нажатии брать очередное значение и наращивать счётчик (пока не дойдёт до конца списка).


делов всех максимум на 5 минут, включая запуск Delphi!

[Ghost of Night]

А не проще просто брать рандомное из списка, а потом его просто удалять из этого списка?