[Dima170792]

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

Код:

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]

Код:

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

Код:

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; 

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