如何自定义VCL TListBox排序？

Question

我试图弄清楚如何为TListBox中的项目和字符串提供我自己的自定义排序方法。

我的列表框在其Object属性中存储了一个自定义对象，我需要在自定义排序中使用它。

我基于以下代码（Delphi）：Is it possible to sort a TListBox using a custom sort comparator?

我的自定义排序功能如下所示

int __fastcall SortListByValue (TStringList* sl, int item1, int item2)
{
    IniKey* k1 = (IniKey*) sl->Objects[item1];
    IniKey* k2 = (IniKey*) sl->Objects[item2];
    return k1->mValue < k2->mValue;
}

关键值是字符串。目前它们可以是“ - ”，“是”，“否”和“通过”。

调用它的代码是这样的：

void __fastcall TMainForm::sortByValueAExecute(TObject *Sender)
{
    Log(lInfo) << "Sorting list based on Values";
    TStringList* sl = new TStringList();
    sl->Assign(imagesLB->Items);
    sl->CustomSort(SortListByValue);
    imagesLB->Items->Assign(sl);
}

上面的代码对列表做了“某事”，但没有排序。

结果列表以“ - ”项开头，所有“是”项都是连续的。然后，“否”和“通过”和“ - ”项目被加扰。

有线索吗？

Answer 1

您的sort函数应返回< 0，0或> 0的值，具体取决于两个输入参数的所需顺序。但你没有正确地做到这一点。你要返回0或1，但绝不返回< 0，因为你返回的是一个布尔表达式的（隐式转换的）结果，它只能是false或true。

您需要更改此行：

return k1->mValue < k2->mValue;

相反：

if (k1->mValue < k2->mValue) return -1;
else if (k1->mValue > k2->mValue) return 1;
else return 0;

或者，使用RTL的AnsiCompareStr()或CompareStr()函数代替：

return AnsiCompareStr(k1->mValue, k2->mValue);

return CompareStr(k1->mValue, k2->mValue);