2017年11月 - 傻猫日志 Samool.com

Delphi ListView排序

作者: 傻猫分类: 搞软件发布时间: 11-14 22:37 浏览次数: 5388 无留言

var
      m_bSort:Boolean;   //控制正反排序的变量
    
    implementation
    
    
    {$R *.dfm}
    //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 TFrm_CommunityModify.lv_SelectedHDTCColumnClick(Sender: TObject;
      Column: TListColumn);
    begin
          lv_SelectedHDTC.CustomSort(@CustomSortProc,Column.Index);
          m_bSort:=not m_bSort;
    end;

傻猫日志 Samool.com

Delphi ListView排序

赞助商

最新发布

其它