如果列表已排序，为什么Delphi的TStringList.InsertObject方法会引发异常？

如何解决如果列表已排序，为什么Delphi的TStringList.InsertObject方法会引发异常？

| 在Delphi 6中，如果您尝试将对象插入已排序的TStringList（排序= true），则会引发异常，警告您排序列表上不允许使用InsertObject（）。如果调用InsertObject（）必然意味着破坏列表的排序顺序，我可以理解这一点。但是考虑到TStringList.Find（）方法：

function TStringList.Find(const S: string; var Index: Integer): Boolean;

返回一个索引，告诉您如果给定字符串将插入索引添加到列表中，则该索引应该是什么，使用该索引调用InsertObject（）应该使排序后的列表在操作后仍保持排序顺序。我已经检查了Delphi源代码中的TStringList，它似乎证明了我的主张。 现在，我只是为TStringList创建一个新的子类，该子类重写InsertObject（），并且如果在有序列表上调用InsertObject（），则不会引发异常，但是我想确保没有任何隐藏的危险我只是没有看到。 -罗施勒     

解决方法

您应该只在排序列表上调用

AddObject

。 如果

InsertObject

检查排序列表中的\'correct \'索引，那么您将面临测试的噩梦：在某些情况下，您的代码似乎可以正常工作，但是如果输入数据发生更改，则会突然引发异常。或者，如果

InsertObject

忽略了

Index

参数，那么它的行为将非常不直观。 如果列表已排序，则ѭ2always总是抛出更好。     ,该错误消息对我来说似乎很清楚：不允许在已排序的TStringlist上调用Insert或InsertObject。如果sorted为true，则字符串列表将自动处理新条目的位置，以使列表保持排序。假设允许插入，则字符串列表如何知道给定索引不会破坏排序？它必须找到正确的索引，并将其与给定的索引进行比较，然后呢？使用找到的一个或引发异常。因此，仅允许Add或AddObject。     ,为了避免重复由

Find

执行的二进制搜索，可以使用受保护的

InsertItem

方法：

type
  THackSL = class(TStringList);

...

var
  i: Integer;
  s: string;
begin
  ...
  if not MyStringList.Find(s,i) then
    THackSL(MyStringList).InsertItem(i,s,nil);
 

    ,无需检查Delphi6，但在Delphi XE中相同。如果列表已排序，则应改用AddObject。当列表为您排序项目时，将对象插入特定位置实际上没有任何意义。     ,使用TStringList.Add代替。它将自动检查重复项并将字符串插入正确的位置