delphi – 为什么THashedStringList不会忽略重复？

我有以下代码：

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;

但是当我看到sl.Count时,它给了我7.这是什么错误？

解决方法

您需要将Sorted属性设置为TRUE,以使列表忽略重复项.该属性继承自TStringList,如果您查看TStringList.Duplicates的文档,您会发现：

Note: Duplicates does nothing if the list is not sorted.