您的位置:首页 > 编程语言 > Delphi

Delphi ListView排序

2020-02-29 20:01 429 查看

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

  • 点赞
  • 收藏
  • 分享
  • 文章举报
denghui5998 发布了0 篇原创文章 · 获赞 0 · 访问量 14 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: