Сортировка

Автор темы

D daiv Участник 28.07.2004

#1

помогите убрать из списка одинаковые строки
12
45
65
345
534
23
345
65
90
67
чтоб выводил
12
45
65
345
534
23
90
67

 

S SteelRat Участник 28.07.2004

#2

Воспользуйся такой процедурой:

procedure DelDuplicates(SL: TStringList);
var
i, j: integer;
begin
for i := 0 to SL.Count - 1 do
begin
for j := SL.Count - 1 downto i + 1 do
begin
if SL.Strings = SL.Strings[j] then
SL.Delete(j);
end;
end;
end;

 

D daiv Участник 28.07.2004

#3

Большое спасибо

 

P Pete Участник 28.07.2004

#4

Через хэш можно быстрее сделать, если список будет достаточно большой, это может дать хороший выигрыш.

 

P Pete Участник 28.07.2004

#5

Или предварительно отсортировав строки быстрой сортировкой. Когда строк несколько тысяч, эффект будет очень заметен.

 

B Barmutik Участник 29.07.2004

#6

Для такого вопроса нельзя предлагать использовать хэш .. или надо тогда сначала объяснять что такое хэш и быстрая сортировка :angry:

 

D Danemon Участник 30.07.2004

#7

Можно воспользоваться услугами типа Set - "множество".