ListBox列表项的排序，

就是调用ListBox.Prop.Items.Sort(Compare: TListSortCompare);方法，

TListSortCompare = function (Item1, Item2: Pointer): Integer;

 

先准备一个界面,

顶部一个Panel,上面三个按钮,下面放个ListBox,如下图所示:

点击”名称”按钮表示按名称排序(名称保存在Item.Caption属性)，

点击”日期”按钮表示按日期排序(日期保存在Item.Detail属性)，

点击”大小”按钮表示按大小排序(大小保存在Item.Detail属性)，

ListBox添加如下四个列表项:

接下来我们要实现点击”名称”按钮排序,

先定义一个排序方法，

方法的类型必须为TListSortCompare = function (Item1, Item2: Pointer): Integer;

如下图所示:

//按名称升序排序方法

function ListCompareByNameAsc(Item1, Item2: Pointer): Integer;

begin

Result:=0;

if LowerCase(TSkinListBoxItem(Item1).Caption)

>LowerCase(TSkinListBoxItem(Item2).Caption) then

begin

Result:=1;

end

else if LowerCase(TSkinListBoxItem(Item1).Caption)

<LowerCase(TSkinListBoxItem(Item2).Caption) then

begin

Result:=-1;

end;

end;

 

然后我们写”名称”按钮的OnClick事件:

procedure TFrameListBox_SortItems.btnSortByNameClick(Sender: TObject);

begin

//按名称排序

Self.lbFileList.Properties.Items.Sort(ListCompareByNameAsc);

end;

 

运行，效果如下，5，1，3，2:

点击”名称”按钮,1，2，3，5，看，按升序排列了: