Удаление в memo

← →
adolf_99 © (2002-11-19 19:33) [0]

Как удалить в memo повторяющиеся строки, при условии что сколько раз они повторяються не известно

← →
Anatoly Podgoretsky © (2002-11-19 19:50) [1]

Ни чего не остается как в цикле идти от начала до конца и сравнивать каждую со всеми последующими (вложенный цикл)

← →
Андрей Прокофьев © (2002-11-19 19:51) [2]

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

Можно использовать временный TStringList. У него есть ssDuplicate