Генератор текста из массива TStringList-ов

[Agnostik]

Вечер добрый. Или у кого что. В общем есть массив TStringList-ов определенной "длины", то есть сколько конкретно в каждом случае TStringList известно и равно переменной rr. Нужно чтобы в отдельном Мемо или СтрингЛисте создавался текст из всех этих листов со всеми возможными вариантами. Пример:
лист1
1
2
3
Лист2
4
5
6
Лист3
7
8
9

В результате получаем: Лист4 147
148
149
157
158
159
167
168
169
247
248
249
257
и т.д.


Сделать чтоб получалось вида:
147
258
369
Я знаю, а вот как сделать чтоб все варианты получить, ну никак не могу понять, уже 2 суток пытаюсь и никак, надеюсь на вашу помощь))

[Kix.IV]

Просто перебор всех вариантов. Решений в интернете много. Что-то похожее пару дней назад спрашивали.

[evg_m]

Сделать чтоб получалось вида:
147
258
369
Я знаю

т.е. знаю как

x:=list1[i] +list2[i] + ist3[i];

а как сделать

x:=list1[i1]+list2[i2]+list3[i3];

[Agnostik]

Честно говоря уже спать хочется, поэтому не пинайте, если глупость какую-нибудь напишу. Но сколько будет "list" всего изначально не известно и задается каждый раз отдельно, может быть, будет 2 всего или 3, а, может быть, 127. И для каждого случая так писать не выход. Пробовал через циклы, но уже штук 5, наверно, разных перепробовал и никак не получается нужный результат. Проблема лично для меня именно то, что количество листов каждый раз задается отдельно.

[evg_m]

если объемы небольшие (N1*N2*..Nm<2^31) можно попробовать формулу вычисления одномерного индкеса (j) по имеющемуся многомерному (i1,i2,...im)

N1...Nm число записей в соответсвующем списке.

j:=(..(i1*N1+i2)*N2+...)*im-1 +im; // im-1 это i c индексом m-1
в обратную сторону (что-то вроде этого)

j:=0 to (N1*N2*...*Nm) -1 do

n1:=j div (N1*N2*..*Nm-2*Nm-1);
j1:=j mod (N1*N2*..*Nm-2*Nm-1);

n2:=j1 div (N1*N2*...Nm-2);
j2:=j1  mod (N1*N2*...*Nm-2);

.....
nm-1:=jm-2 div N1;
jm-1:=jm-2 mod N1;
....

P.S. Еще один способ из старых тем.

[Аватар]

Чуть другое, но идея та же
http://programmersforum.ru/showthread.php?t=230210

[Agnostik]

С рекурсией честно говоря вообще не понял.

P.S. Еще один способ из старых тем.

если правильно понял этот пример, то я примерно так же делал, но там массив счетчиков, а у меня как бы массив из массивов строк, если можно так выразиться, поэтому каждую строку получить не могу всё равно. Вот это что-то более близкое и понятное мне, но за последний час так и не смог приладить под себя, чтоб добавляло по слову из каждого массива, а не по символу из строки. А вообще Спасибо всем, не ожидал. Думал что вообще никто откликнется.

[Аватар]

С рекурсией честно говоря вообще не понял

Вот это что-то более близкое и понятное мне

Вот то это и есть с рекурсией Чуть подправил под несколько StringList-ов

var CountList: Integer;
    ArrayList: array of TStringList;

procedure TForm1.InitText(Index: Integer; Text: String);
var s: String;
    i: Integer;
begin
  for i:=0 to ArrayList[Index].Count-1 do begin
    s:=Text+ArrayList[Index].Strings[i];
    if Index=CountList-1 then Memo1.Lines.Add(s)
                         else InitText(Index+1,s);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  CountList:=3;
  SetLength(ArrayList,CountList);
  ArrayList[0]:=TStringList.Create;
  ArrayList[0].Add('1');
  ArrayList[0].Add('2');
  ArrayList[0].Add('3');
  ArrayList[0].Add('4');
  ArrayList[1]:=TStringList.Create;
  ArrayList[1].Add('D');
  ArrayList[1].Add('L');
  ArrayList[1].Add('V');
  ArrayList[2]:=TStringList.Create;
  ArrayList[2].Add('Ж');
  ArrayList[2].Add('ЮЮ');
  ArrayList[2].Add('ЦУЪ');

  InitText(0,'');

  for i:=0 to CountList-1 do ArrayList[i].Free;
end;

[Agnostik]

Аватар, я имел ввиду, что не понял пример, который дал evg_m. Всем спасибо за помощь, воспользовался решением от Аватара. За что Вам отдельно огромное спасибо. Тему можно закрывать.