我有以下
代码:
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:@H_403_13@ Duplicates does nothing if the list is not sorted.
原文链接:https://www.f2er.com/delphi/102064.html