Случайная генерация пар из слов

[Зод]

Допустим есть 4 слова
asda
dera
fok
milk
как сделать случайную генерацию пар из двух слов?
Я вижу это как цикл в котором Memo1.Lines[i] + ' ' + Memo2.Lines[i] и так далее. Где Memo1 и т.д. это на каждое слово свое Memo. Правильный ли это путь решения задачи? Мне кажется что нет. Есть ли другие варианты?

[Serge_Bliznykov]

нет. в циклах можно (и нужно) делать генерацию всех возможных вариантов.
если же нужно получить случайную комбинацию из двух слов, то надо занести все слова в любую структуру (например, в TStringList или динамический массив), сгенерировать два случайных числа в диапазоне, не превышающем индекс максимального слова и выдать полученную случайную пару.
(при генерации учесть - любое ли слово может быть с любым словом и допускает ли выпадение дважды одного и того же слова - ну допускается ли, например dera dera)

[_SERGEYX_]

1. StringList
2. Random

[Человек_Борща]

Берем 2-х мерный массив. В первый столбац, загоняем все слова, получаем кол-во слов и делим его без остатка, и с остатком, на 2.
Целое, без остатка кидаем во второй столбец массива, и если был остаток, то его тоже загоням во второй столбец массива.
Удаляем пустые ячейки в обоих столбцах, но так что-бы кол-во ячеек с1 и 2-го столбцов совподало, не зависимо от того, что в каком-то из них есть пустые.

Далее из Math модуля берем RandomRange функцию, и используем для 2 переменных x и y.
Как параметры этой функции, берем начальный номер эл-а массива и конечный.

Далее так:
x:=RandomRange(n,N);
проверяем ячейку x на пустату, и генерируен новое число, если ячейка по x пуста
y:=RandomRange(N,n);
та же проверка с y'ом
строка:=Массив[x,y];

вот и все