Вопрос по Memo

[Maksas]

Привет всем, подскажите пожалуйста у меня есть два мемо в них числа в первом 1, 1, 1, 1,... а во втором 2, 2, 2, 2,... как сделать что бы по нажатию на кнопку эти числа выводились по очереди в edit вот так 1, 2, 1, 2... заранее спасибо.

[ArtInt]

Делаешь три переменные string, присваиваиваешь им текст из memo, другая результат, прогоняешь в цикле по условию если не равно запятая, используя функцию copy.
Или второй вариант попроще, делаешь две переменные TStringList, и каждой присваиваешь мемо, до этого делая StringList.Delimetr:=','
Потом уже выводишь их поочередно через цикл в Edit
Где то примерно так будет:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  List1: TStringList;
  List2: TStringList;
begin

  List1:=TStringList.Create;
  List2:=TStringList.create;

  List1.Delimiter:=',';
  List2.Delimiter:=',';

  List1.DelimitedText:=Memo1.Text;
  List2.DelimitedText:=Memo2.Text;

  for  i:=0 to List1.Count-1 do
  begin
    Edit1.Text:=Edit1.Text+List1.Strings[0]+','+List2.Strings[0]+', ';
  end;
  List1.Free;
  List2.Free;

end;