» Delphi: убрать одинаковые строки

В php, чтобы убрать повторяющиеся значения из массива существует функция array_unique. Есть ли что-то подобное в Delphi? Или в методах какого-то компонента, в котором можно содержать текст, чтобы этот метод убрал повторяющиеся строки?

lemonhost

Цитата:

Или в методах какого-то компонента, в котором можно содержать текст, чтобы этот метод убрал повторяющиеся строки?

ручками заносить все в TListBox ( или в TStringList) там делвешь сортировку и сравниваешь попарно строки, если совпадают, то удаляешь одну из них.

Как вариант красиво.
Я как раз в Memo работаю.
Спасибо.

А можно ещё проще. Зачем делать сортировку, если это уже реализовано.

Код:
var st:TStringList;
i:integer;
begin
st:=TStringList.create;
try
st.Duplicates:=dupIgnore;//игнорировать дупликаты
for i:=0 to Memo1.lines.count-1 do
st.add(Memo);
//здесь делаем что-то с полученым списком
finally
st.free;
end;
end;

OdesitVadim, спасибо. из Одессы тоже -)

зы. тему можно закрыть