0

Как быстро удалить дубликаты с RichEdit1? Таким способом удаляет очень медленно:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  i := 0;
  while i < RichEdit1.Lines.Count do
  begin
    if RichEdit1.Lines.IndexOf(RichEdit1.Lines[i]) < i then
      RichEdit1.Lines.Delete(i)
    else
      inc(i);
  end;
end;

1 ответ 1

1

Быстро костыль подставить - обернуть операцию в BeginUpdate/EndUpdate

Но, вероятно, есть решение получше, которое зависит от реальной задачи.
Например - откуда там вообще дубликаты?

4
  • Дубликаты там из за того что туда осуществляю парсинг информации из сети. И RichEdit может поместить в себя больше информации нежели Memo.
    – craz2018
    18 мар 2019 в 8:22
  • В таком случае используйте TStringList, а не визуальный компонент.
    – MBo
    18 мар 2019 в 8:32
  • Уже сделал, интересно было с визуальным компонентом.
    – craz2018
    18 мар 2019 в 8:43
  • Быстрый способ - с сортированным списком, т.к. там не надо проходить по каждой строчке для поиска совпадений.
    – Alekcvp
    19 мар 2019 в 13:41

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.