Задача на дельфи о совпадении строк в двух Memo

[NiKiToZZ-]

Есть 2 memo. Нужно поставить условие, что если значения двух строк в memo1 и memo2 совпадают то показать сообщение Найдено совпадение: (первая строчка с совпадением) и (вторая строчка с совпадением).
Тоесть программа должна определять совпадение значений. Смотрите скрин.


Напишите пожалуйста код если несложно.

[Stilet]

if Memo2.Lines.IndexОf(Memо1.Lines[Номерстроки])<>-1 then есть такое во втором

Ферштейн?

[NiKiToZZ-]

Не совсем ферштейн. Растолкуйте пожалуйста поподробней

Добавляю:
А можно ли как то это множествами оформить?

[Stilet]

Растолкуйте пожалуйста поподробней

Метод IndexОf совершает поиск переданной ему строки в Мемо, к которому он относится. Ты передаешь ему строку из первого Мемо, и он ищет ее у себя.
Если найдет вернет номер строки, иначе -1

А можно ли как то это множествами оформить?

Нет.

[MoBLer]

Кидаеш на форму button и перед begin пишешь

var i:integer;

а после него (begin)

for i:=0 to memo1.Lines.Count-1 do
if memo2.Lines.IndexOf(memo1.Lines[i])<>-1 then showmessage('Найдено совподение '+memo1.Lines[i]+' и '+memo1.Lines[i]);

вот что должно получится

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
if memo2.Lines.IndexOf(memo1.Lines[i])<>-1 then showmessage('Найдено совподение '+memo1.Lines[i]+' и '+memo1.Lines[i])
end;

[NiKiToZZ-]

Спасибо большое, очень выручили. Воспользовался методом MoBLer'a за что ему отдельное, БОЛЬШОЕ спасибо)
Уважаемый Stilet, увы, в вашем методе я так и не разобрался. Видимо мне до вашего понимания Delphi еще очень далеко)
Ах да! Тему можно закрывать

[MyLastHit]

Чем же метод Stilet отличается от метода MoBLer? Все абсолютно одинаковое. Только MoBLer скинул тебе код вместе с процедурой обработчика, которая воссоздается при двойном клике по кнопке, и написал строчку цикла...

[NiKiToZZ-]

Уважаемый MyLastHit, я очень плохо ориентируюсь в переменных и циклах for to do, точнее, я в циклах вообще не разбираюсь. Так что для меня это в новинку, и нехватка одной строчки в предложенном мне коде от Stilet для меня означает что коды предложенные stilet'om и mobler'om для меня разные

[Stilet]

я очень плохо ориентируюсь в переменных и циклах

В таком случае рекомендую потратить время и почитать основы. Это не флуд.

[NiKiToZZ-]

Спасибо, учту. Тему можно закрыть)