массив из строк: удаление дубликатов

← →
в (2003-11-01 14:22) [0]

Нет ли у кого готового алгоритма удаления дубликатов из одномерного массива? Просто писать не хочется.
Ну то есть чтобы эта функция (аргумент: array of string) возвращала готовый массив, где бы дубликатов уже не было, а оставшиеся сообщения располагались в том же порядке, что и были (хотя можно и отсортировать). Само собой, количество элементов в получившемся массиве не больше, чем в исходном.

Спасибо.

← →
Song © (2003-11-01 14:23) [1]

В TStrings занеси, там есть Duplicates.
В принципе алгоритим один: отсортировываешь строки. Таким образом одинаковые будут стоять рядом. А потом просто проходишь циклом и удаляешь рядом стоящие одинаковые строчки. Одну из них оставляешь.

← →
в (2003-11-01 14:55) [2]

А как с этими Duplicates общаться?

← →
SG © (2003-11-01 15:01) [3]

for i:=1 to n do
for k:=2 to n do
if A[i]=A[k] then
Begin
A[i]:=0;
A[k]:=0;
end;

← →
Maxud © (2003-11-01 15:10) [4]

var L: TStringList; ... // перед добавлением строк L.Duplicates := dupIgnore;

> Просто писать не хочется.

Можно и бутылки собирать....

массив из строк: удаление дубликатов Найти похожие ветки