Генерирование букв и цифр

[Pavelok]

Привет всем!!!
Скажите пожалуйста как зделать: допустим я ввожу в edit буквы АБВГ и программа должна менять их местами до тех пор, пока они не начнут повторяться. И тоже самое с цифрами.

[Sazary]

Рекурсия в помощь.

Делаете массив из того, что в Эдите. Потом вызываете рекурсивную функцию, в которой в цикле для текущей позиции берется значение из массива. При этом нужно проверять, использовался ли уже такой элемент. Когда дошли до нужной глубины, выводим результат, например, в Мемо.

[Pavelok]

Спасибо. тока можете показать это на примере?

[Sazary]

Для примера посмотрите вот эту темку:
http://programmersforum.ru/showthread.php?t=48328
Я там описывал алгоритм для другой задачи с рекурсией.

[Pavelok]

Ну вот нашёл такой код:

var RandSeed: LongInt;
begin
RandSeed:=random(100);
edit1.Text:=(IntToStr(RandSeed));

Но не понятно как зделать чтоб они не повторялись.
И тоже самое тока с буквами.

[Sazary]

Ну вот нашёл такой код:

Могу сказать, что в вашей задаче этот код мало чем поможет.

Но не понятно как зделать чтоб они не повторялись.

Передавайте в рекурсивную функцию массив (или просто сделайте его глобальным), в котором будут находиться уже использованные элементы.