Dlaczego ThashedStringList nie ignoruje duplikatów?

Question

Mam następujący kod:

var 
    sl: THashedStringList; 
begin 
    sl:= THashedStringList.Create; 
    sl.Duplicates := dupIgnore; 
    sl.Add('12345'); 
    sl.Add('12345'); 
    sl.Add('12345'); 
    sl.Add('12345'); 
    sl.Add('12345'); 
    sl.Add('12345'); 
    sl.Add('12345'); 
    ShowMessage(IntToSTr(sl.Count)); 
end; 

Ale kiedy widzę sl.Count, to daje mi 7. Co to jest błąd w tym?

Answer 1

Musisz ustawić właściwość Sorted na PRAWDA, aby lista ignorowała duplikaty. Właściwość jest dziedziczona z TStringList, a jeśli spojrzeć na dokumentacji TStringList.Duplicates znajdziesz:

Uwaga: duplikaty nie robi nic, jeśli lista nie jest posortowana.