delphi TListView按指定列排序

delphi中点击TListView某列排序进行排序下代码实现的功能是:点击TListView的某一列列头,就按该列对数据进行排序。1. 添加TListView控件的OnColumnClick事件响应代码:procedure

delphi中点击TListView某列排序进行排序

下代码实现的功能是:点击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;
--------------------

执行自定义排序函数

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;


相关推荐

[!--temp.pl--]