RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件 > 正文

delphi TListView按指定列排序

作者:admin 来源: 日期:2016/1/26 21:50:38 人气: 标签:

以下代码实现的功能是:点击TListView的某一列列头,就按该列对数据进行排序。

1. 添加TListView控件的OnColumnClick事件响应代码:

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  (Sender as TListView).CustomSort(nil, Column.Index);
end;

2. 添加TListView控件的OnCompare事件响应代码:

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if Data = 0 then //按标题列排序
    Compare := CompareStr(Item1.Caption, Item2.Caption)
  else //按其他列排序
    Compare := CompareStr(Item1.SubItems.Strings[Data-1], Item2.SubItems.Strings[Data-1]);
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料