[fofka]

Доброго всем дня.
Не могу сообразить как мне данные с Мемо собрать. Вопрос такой, есть Мемо1 и Мемо2, нужно что бы при нажатии на кнопку данные из первых двух собрались в Мемо3. И собрались таким образом.
Мемо1.строка1-Мемо2.строка1,
Мемо1.строка2-Мемо2.строка2
Мемо1.строка3-Мемо2.строка3
и т.д.
Заранее благодарю за помощь.

[M.A.D.M.A.N.]

Код:

memo3.lines.add(memo1.lines[i]+memo2.lines[i])

Не?

[Yurk@]

Код:

  for i := 0 to Memo1.Lines.Count-1 do
    Memo3.Lines.Append(Memo1.Lines[i] + '-' + Memo2.Lines[i]);

[fofka]

Yurk@ Благодарю, то что нужно.

M.A.D.M.A.N. При варианте предложенном Вами перенос происходит таким образом:
Мемо1.строка1
Мемо1.строка2
Мемо1.строка3
Мемо2.строка1
Мемо2.строка2
Мемо2.строка3
и т.д.

Еще раз благодарю всех за помощь!

[Alegun]

Ещё хорошо бы добавить проверку на кол-во строк в Memo2, иначе будет AV, если строк в нём меньше чем в первом

Код:

for i := 0 to Memo1.Lines.Count-1 do
 if i < Memo2.Lines.Count then Memo3.Lines.Append(Memo1.Lines[i] + '-' + Memo2.Lines[i]);

[Yurk@]

иначе будет AV, если строк в нём меньше чем в первом

а ты проверял?
проверь

[M.A.D.M.A.N.]

Да ясен пень, что будет List Index Of Bounds, описался просто человек.