gpt4 book ai didi

sorting - Delphi 按 ItemData.Detail 对 TListBox 进行排序?

转载 作者:行者123 更新时间:2023-12-03 15:11:00 25 4
gpt4 key购买 nike

我有一个 TListBox,其中包含位置列表(每个位置都有一个名称和距当前位置的距离)。我想为用户提供按位置名称(即按字母顺序)或按距当前位置的距离对列表进行排序的选项。位置名称存储为项目的 ItemData.Text 值,距当前位置的距离存储为 ItemData.Detail 值。问题在于常规 TListBox 排序方法在排序时不使用 ItemData.Detail 属性(仅使用 ItemData.Text 属性)。是否可以向 TListBox 添加自定义排序方法,根据每个项目的 ItemData.Detail 值进行排序?

我尝试了以下方法,但不起作用:

procedure TFrmSelect.btnSortLocationClick(Sender: TObject);
var Compare: TFMXObjectSortCompare;
begin
btnSortLocation.Enabled := False;
btnSortAlpha.Enabled := True;
Compare := function(item1, item2: TFmxObject): Integer
begin
Result := TListBoxItem(item1).ItemData.Detail.CompareTo(TListBoxItem(item2).ItemData.Detail);
end;
self.ListBox.Sort(Compare);
self.ListBox.Sorted := False;
self.ListBox.Sorted := True;
end;

下面是要排序的示例列表的图像:

Here is an image of an example list that would be sorted

最佳答案

Sort 的调用使用比较函数执行排序。 Sorted 属性用于按照默认比较确定的顺序维护列表。

为了使用比较函数对列表进行排序,只需删除设置 Sorted 属性的代码即可。

关于sorting - Delphi 按 ItemData.Detail 对 TListBox 进行排序?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43488140/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com