Немного строчек и сравнения

[androdrev]

Помогите, плиз, дайте примерчик

Если в мемо2 есть те же строки, что и в мемо1, то убрать их из мемо1. А остальные оставить.

Например, в мемо1 есть строки 111, 222 и 333, а в мемо2 есть строки 333 и 222. Надо убрать из мемо1 строки, имеющиеся в memo2.

[Пепел Феникса]

for i:=Memo1.Lines.Count-1 downto 0 do for j:=0 to Memo2.Lines.Count-1 do if Memo1.Lines[i]=Memo2.Lines[j] then begin Memo1.Lines.Delete(i); break; end;

как то так.
и вроде Delete удаляет, не помню уже.

[androdrev]

Сообщение от Пепел Феникса

for i:=Memo1.Lines.Count-1 downto 0 do for j:=0 to Memo2.Lines.Count-1 do if Memo1.Lines[i]=Memo2.Lines[j] then begin Memo1.Lines.Delete(i); break; end;

как то так.
и вроде Delete удаляет, не помню уже.

БЛАГОДАРЮ!!! Огромное спасибо! Я над этой 1,5 часа голову ломал)) Вы мегагений))))

[northener]

С помощью IndexOf код своей программы можно сделать короче.

for i:=Memo1.Lines.Count-1 downto 0 do if Memo2.Lines.IndexOf(Memo1.Lines[1]) >=0 then Memo1.Lines.Delete(i);

[Пепел Феникса]

да, вы правы.
хех, тяжело сейчас после шарпа было хД.

[androdrev]

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

С помощью IndexOf код своей программы можно сделать короче.

for i:=Memo1.Lines.Count-1 downto 0 do if Memo2.Lines.IndexOf(Memo1.Lines[1]) >=0 then Memo1.Lines.Delete(i);

Нужды в сокращении нет, но все равно спасибо)