Одинаковые строки Memo

[Dima_D]

Подскажите как в Memo найти и удалить повторяющиеся строки?

[Serge_Bliznykov]

так пойдёт?

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  i := Memo1.Lines.Count-1;
  while i>=0 do begin
     j := Memo1.Lines.IndexOf(Memo1.Lines[i]);
     while (j>=0) and (j<i) and (i>=0) do begin
       Dec(i);
       Memo1.Lines.Delete(j);
       if i>=0 then
         j := Memo1.Lines.IndexOf(Memo1.Lines[i]);
     end;
     Dec(i);
  end;
end;

[r9m]

через memo1.lines

[Dima_D]

Спасибо огромное!

Serge_Bliznykov, если не сложно прокомментируйте код,а то не могу до конца разобраться

[r9m]

Оо! Да тут студент! Вам в другую тему! Тут комментировать нечего!

From artemavd: Делаю замечание. Прошу Вас воздержаться от подобных высказываний и если есть что ответить по теме, то отвечать нужно по теме, а не флудить.

[Dima_D]

Это же моя тема
Просто не могу понять строку :
j := Memo1.Lines.IndexOf(Memo1.Lines[i]);

[artemavd]

Попробую я прокомментировать:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  i := Memo1.Lines.Count-1; //количество строк в Мемо
  while i>=0 do begin //пока количество строк больше нуля
  //присваиваем переменной j индексы массива строк i
     j := Memo1.Lines.IndexOf(Memo1.Lines[i]); 
     while (j>=0) and (j<i) and (i>=0) do begin //пока индексов и количества строк больше нуля
       Dec(i);
       Memo1.Lines.Delete(j); //удаляем индекс
       if i>=0 then
         j := Memo1.Lines.IndexOf(Memo1.Lines[i]);
     end;
     Dec(i);
  end;
end;

Поправьте если где был не прав.

[K.I.S.S.]

а самое главное -- то что то требовалось не прокомментировал)

j := Memo1.Lines.IndexOf(Memo1.Lines[i]);// присваиваем j номер строки идентичной i-той строке

ну и слово "индекс" в твоих, так сказать комментариях нужно заменить на "строка с индексом"
вот более точный комментарий

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  i := Memo1.Lines.Count-1; //количество строк в Мемо
  while i>=0 do begin //пока количество строк больше нуля
     j := Memo1.Lines.IndexOf(Memo1.Lines[i]);//присваиваем j номер строки идентичной i-той строке 
     while (j>=0) and (j<i) and (i>=0) do begin //пока есть строки похожие на i  и строки есть вообще и это не просматриваемая нами i-тая строка
       Dec(i);// уменьшаем количество строк в мемо
       Memo1.Lines.Delete(j); //удаляем строку идентичную i-той строке 
       if i>=0 then
         j := Memo1.Lines.IndexOf(Memo1.Lines[i]);//присваиваем j номер строки идентичной i-той строке 
     end;
     Dec(i); // переходим вверх к следущей строке
  end;
end;

[Serge_Bliznykov]

artemavd, спасибо за помощь.
Почти всё верно, кроме одного достаточно ключевого момента.
.IndexOf() - это поиск строчки в Memo.Lines
он возвращает индекс найденной строчки или -1, если такую не нашли.
Для поиска передаём поочердной строчки мемо по индексу i

    //присваиваем переменной j номер найденной строки  (ищем строчку с индексом i
     j := Memo1.Lines.IndexOf(Memo1.Lines[i]); 
     // пока строчка нашлась и эта строчка не является текущей (т.к. сама себя она найдётся всегда) и пока строчки не кончились
     удаляем строчку и ищем следующую, пока условия выполняются
     while (j>=0) and (j<i) and (i>=0) do begin //пока индексов и количества строк больше нуля
       Dec(i);
       Memo1.Lines.Delete(j); //удаляем индекс
       if i>=0 then
         j := Memo1.Lines.IndexOf(Memo1.Lines[i]);
     end;

K.I.S.S. +1
Вы правы. всё так. Просто я не увидел Ваш пост, когда писал ответ!

[InternetStranger]

Совсем не обязательно, но можно добавить 2 строчки, для увеличения производительности:

begin
     Memo1.Lines.BeginUpdate;  // Отключаем прорисовку Memo
     // ... тело цикла, в котором происходит обновление Memo
     Memo1.Lines.EndUpdate;    // Включаем прорисовку Memo, отобразятся все произведенные изменения
end;

Подробности, например, здесь.
Разница ощутима будет, когда число строк ~ 1000-3000