Удаление из RichEdit1 всего, что есть в RichEdit2

[LongMonster]

Здравствуйте! Нужно удалить весь текст из RichEdit2, который находится в RichEdit3. Пробовал делать так, но тогда также удаляются лишние строки вначале:

for s := 0 to RichEdit2.Lines.Count do begin
  for m := 0 to RichEdit3.Lines.Count do begin
  if Pos (RichEdit3.Lines[m], RichEdit2.Lines[s]) > 0 then begin
      RichEdit2.Lines.Delete(s);
  end;
  end;
  end;

В чём проблема?

[Аватар]

Что значит удалить весь текст? Видимо совпадающие строки? Зачем pos если удаляется целиком строка, тогда просто строки сравнивать. Удалить нужно из RichEdit1, а удаляются и не правильно из RichEdit2. RichEdit3 вообще нет в условии, а в коде есть. Циклы должны быть до Count-1, а в том, из которого будут строки удаляться должен быть обратный цикл

[LongMonster]

Сообщение от Аватар

Что значит удалить весь текст? Видимо совпадающие строки? Зачем pos если удаляется целиком строка, тогда просто строки сравнивать. Удалить нужно из RichEdit1, а удаляются и не правильно из RichEdit2. RichEdit3 вообще нет в условии, а в коде есть. Циклы должны быть до Count-1, а в том, из которого будут строки удаляться должен быть обратный цикл

Да, совпадающие строки. То есть, нужно удалить все повторяющие строки из RichEdit2, которые есть в RichEdit3.

Поправил по поводу RichEdit1 - брал просто условно.
Можете поправить код чтобы правильно работало?

[Аватар]

for i:=0 to RichEdit3.Count-1 do
  for j:=RichEdit2.Count-1 downto 0 do
    if RichEdit2.Lines[j]=RichEdit3.Lines[i] then RichEdit2.Lines.Delete(j);

[F1n4]

Richedit2.text:=Stringreplace(Riche dit2.text,Richedit3.text,'',[rfignorecase,rfignoreall]);

[Аватар]

Stringreplace можно конечно вместо второго цикла, но не так же

[LongMonster]

Сообщение от Аватар

for i:=0 to RichEdit3.Count-1 do
  for j:=RichEdit2.Count-1 downto 0 do
    if RichEdit2.Lines[j]=RichEdit3.Lines[i] then RichEdit2.Lines.Delete(j);

Большое спасибо, работает.