Delphi ListView排序

var   m_bSort:   boolean=false;   //控制正反排序的变量

//ListView排序的回调函数，默认的是快速排序法，也可以自己在这里做算法
function   CustomSortProc(Item1,   Item2:   TListItem;   ParamSort:   integer):   integer;   stdcall;
var   txt1,txt2   :   string;
begin
      if   ParamSort   <>   0   then   begin
         try
              txt1   :=   Item1.SubItems.Strings[ParamSort-1];
              txt2   :=   Item2.SubItems.Strings[ParamSort-1];
              if   m_bSort   then   begin
                    Result   :=   CompareText(txt1,txt2);
              end   else   begin
                    Result   :=   -CompareText(txt1,txt2);
              end;
      except
      end;

end   else   begin
              if   m_bSort   then   begin
                    Result   :=   CompareText(Item1.Caption,Item2.Caption);
              end   else   begin
                    Result   :=   -CompareText(Item1.Caption,Item2.Caption);
              end;
      end;
end;

procedure   TForm1.ListView1ColumnClick(Sender:   TObject;
      Column:   TListColumn);
begin
      ListView1.CustomSort(@CustomSortProc,   Column.Index);
      m_bSort   :=   not   m_bSort;
end;

转载于:https://www.cnblogs.com/Myking/archive/2011/07/15/2106955.html

Delphi ListView排序相关推荐

[Delphi]ListView基本用法大全
Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; L ...
Delphi ListView基本用法大全
Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; L ...
ListView排序并隔色显示
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.C ...
当点击ListView的列头时，对ListView排序
1.创建一个新的C#项目,窗体Form1会被默认创建. 2.向窗体添加一个ListView控件, 3.在Form1.cs中添加下面的代码: private ListViewColumnSorter l ...
Delphi ListView的用法(常用技巧) 作者:蓝色忧郁
Delphi ListView的用法(常用技巧) 作者:蓝色忧郁日期:2006-08-10 字体大小: 小中大 //增加 i := ListView1.Items.Count; with ...
C# ListView排序
1声明 private ListViewColumnSorter lvwColumnSorter; 2窗体构造函数添加下面代码 // 创建一个ListView排序类的对象,并设置listView1的排 ...
C# winform中listview排序
C# winform中listview排序本文解决方案是采用下面链接中的解决方案.十分感谢这篇文章的作者bright:http://blog.163.com/shensc@126/blog/stat ...
WPF基本的 LISTVIEW 排序实现
网上很多方法,但是内容包含太全面,代码看上去很复杂,其实其中有很多是控制UI的,此种方法一行代码自动解决排序问题,另外,wpf的listview和winform的listview细节差别还是很多的. ...
android listview排序分组,Android：如何对ListView的数据进行排序？
我有一些要从服务器中提取的JSON数据. 此数据中的字段之一是距离值. 我需要按照ListView中从最低到最高的距离对数据进行排序. 我不确定该怎么做? 任何帮助表示赞赏. 这是我获取数据的代码,不 ...

Delphi ListView排序

Delphi ListView排序相关推荐

最新文章

热门文章