[santaIsAbsent]

Доброго времени суток.

Есть такая задача. Нужно сравнить содержимое двух Memo на признак различных строк, т.е. нужно найти те строки, которых нет в Memo2, но есть в Memo1 и поместить их в Memo3.

Заранее спасибо.

[Bars1992]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
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; 


[santaIsAbsent]

Большое человеческое спасибо. Как всегда начал все делать сложнее, а истина проста и рядом. Еще раз большое спасибо!!!

[Nemiroff]

Спасибо, то что надо !!