在 Delphi 7 中按字母顺序对 TListBox 项进行排序答案

【问题标题】：Sort TListBox Items Alphabetically in Delphi 7在 Delphi 7 中按字母顺序对 TListBox 项进行排序
【发布时间】：2013-12-06 10:58:53
【问题描述】：

我试图在添加/编辑条目后触发对 TListBox 控件中的项目的排序。

我看到有一个 Sorted 属性我已设置为 true，但是，这不会在我每次更改时动态排序 ListBox内容。似乎没有任何 Sort 过程或函数可用，并且调用 Update 或 Refresh 没有达到预期的效果。

我已经到了考虑将 ListBox 的内容拉入 TStringList 对象的阶段，对其进行排序，然后将所有内容放回 列表框。不过，这似乎有点疯狂，我肯定忽略了一些更好的方法。

以下是更改现有项目的示例：

 myListBox.Items[myIndex] := newString; // Update Text
 myListBox.Items.Objects[myIndex] := TObject(my_object); // Update associated object

我希望控件会更新以保持按字母顺序排序，但事实并非如此。

【问题讨论】：

【解决方案1】：

列表框的 sorted 属性实际上是由 Win32 列表框样式LBS_SORT 支持的。添加新项目时，这将对列表框进行排序。但修改现有项目时不会这样做。

因此，解决此问题的简单方法是将Sorted 设置为True，然后，不要修改现有值，而是删除旧值并添加新值。所以你的代码会变成：

myListBox.Items.Delete(myIndex);
myListBox.Items.AddObject(newString, TObject(my_object));

如果您仔细想想，如果列表框的行为符合您的预期，那么您的代码注定会失败。因为在您修改了项目的文本后，如果列表被重新排序，那么myIndex 将不再引用同一个项目。

【讨论】：