delphi. Методом сравнения файла загруженного в memo со строками в буфере мне надо из мемо удалить строки

Question

присутствующие в строках в буф. обмена. Набросайте идею как это сделать.
Спасибо

user_3231338 · Accepted Answer

Создаешь второй memo2, вставляешь в него буфер обмена, сравниваешь построчно, и из первого memo1 удаляешь строки соответственно. Второй memo2 можешь на форме выполнить невидимым.

east_rx · Answer

Записываешь строки из буфера в TStringList, и:
while list.Count > 0 do begin
i := Memo.Lines.IndexOf(list[0]);
while i >= 0 do begin
Memo.Lines.Delete(i);
i := Memo.Lines.IndexOf(list[0]);
end;
list.Delete(0);
end;

Delphi. Методом сравнения файла загруженного в memo со строками в буфере мне надо из мемо удалить строки