[Dima170792]

Уважаемые форумчане, помогите с решением простой задачи, которая для меня пока неразрешима- нужно сравнить два memо1 и мемо2 , и в случае если строки совпадают( - любая по счету строка)- то копировать ету строку в мемо 3.
есть аналогичный пример для не совпадающих строк- его я решил, а вот

Код:

1 2 3 4 5 6 7 8 9

var i:integer; begin for i:=0 to memo1.Lines.Count-1   do  begin   if memo2.Lines.IndexOf(memo1.Lines[i])=-1 then      memo3.Lines.Add(memo1.Lines[i]);  end; end;

- а вот как сделать копирование повторяющихся строк- я пас к сожалению(

[wladimir_object]

Код:

1 2 3 4 5 6 7 8 9

var i:integer; begin for i:=0 to memo1.Lines.Count-1   do  begin   if memo2.Lines.IndexOf(memo1.Lines[i])>-1 then      memo3.Lines.Add(memo1.Lines[i]);  end; end;

[Dima170792]

Сообщение от wladimir_object

Код:

Огромное человеческое спасибо!!!