циклы в мемо

[igabenu]

Друзья, подскажите, задача сделующая:

Имееться на форме 3 мемо:

в первом строки:

11111
22222
33333
44444
55555
66666
77777

во втором:

1
2
3
4
5

В третий мемо необходимо записывать:

1 11111
1 22222
1 33333
2 44444
2 55555
2 66666
3 77777
и тд

Тоесть, каждые раз в 3 строки из мемо1 в цикле добавлять одну строку из мемо2. Подскажите, как реализовать подобное?

[mss]

достаточно одного for-цикла

[igabenu]

Тогда как правильно записывать?

Сделал так, но результат немного не тот

Код:

for i:=0 to memo2.lines.Count - 1 do
begin
a:=0;

memo3.Lines.Add(memo2.Lines[i]+' '+memo1.lines[a]);
a:=a+1;
memo3.Lines.Add(memo2.Lines[i]+' '+memo1.lines[a]);
a:=a+1;
memo3.Lines.Add(memo2.Lines[i]+' '+memo1.lines[a]);
a:=a+3;

Результат:

1 11111
1 22222
1 33333
2 11111
2 22222
2 33333
3 11111
3 22222
3 33333
4 11111

Нужно чтоб было:

1 11111
1 22222
1 33333
2 44444
2 55555
2 66666
3 77777
3 88888
3 99999

И как кончаються строки в memo1, цикл обрываеться

[Serge_Bliznykov]

правильно мыслите!
примерно так:

  for i := 0 to memo1.lines.Count - 1 do
     if Memo2.Lines.Count > (i div 3) then 
       Memo3.Lines.Append(Memo2.Lines[(i div 3)] + ' ' + Memo1.Lines[i])
     else
       Memo3.Lines.Append(' ?? ' + Memo1.Lines[i]);

[igabenu]

Serge_Bliznykov - огромное спасибо, долго мучался с этим вопросом