TListView点击表头进行排序和显示图标的方法

这种方法是响应了OnColumnClick和OnCompare这两个事件，其中在OnColumnClick中调用TListView中的CustomSort函数，并把此函数的第一个参数设为nil把OnCompare事件激活的。在OnCompare事件中，按照Delphi的例子，调用了CompareText函数进行排序，把CompareText的返回值赋给OnCompare事件函数的Compare参数达到排序的目标。为什么把CompareText的返回值赋给Compare就能达到排序目的我也不是很清楚，但我知道如果把进行升序或倒序的交替，就要把Compare取正数或取负数进行交替就可以了，这一点在代码中有一句：Compare := -Compare;这可以看出来。如果把这一句去去掉，重复点击同一个表头就不能实现升序与降序交换的效果。另外，CompareText是根据字符的大小进行排序的。如果想进行数字的排序，比较的两个数字的长度是一样的才能实现真正的比较。如：想比较2和12的大小就就应该比较02和12的大小，不然就会出现12比2小的情况(载图中的数字21用021表示就是保有证所有数字是三个字符组成）。

我放了一个listview和一个imagelist控件在Form1中imagelist中包含了我要用的图标，并把listview的smallimage和stateimage两个属性和这个imagelist关联起来。代码如下，

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
    procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
      Data: Integer; var Compare: Integer);
  private
    { Private declarations }
    function CompareValue(s1, s2: real): integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  columnToSort: Integer; //以哪一列为标准进行排序
  LastColumn: TListColumn; //最后一次点击的是哪一列
  nSortType: Integer; //排序方式0和-1一种是升序一种是降序

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Items.Clear;
  with ListView1.Items.Add do
  begin
    Caption := '1'; //添加第一项
    SubItems.add('1'); //添加后面数据
    SubItems.add('1');
    SubItems.add('1');
  end;

  with ListView1.Items.Add do
  begin
    Caption := '2'; //添加第一项
    SubItems.add('2'); //添加后面数据
    SubItems.add('2');
    SubItems.add('2');
  end;

  with ListView1.Items.Add do
  begin
    Caption := '3'; //添加第一项
    SubItems.add('3'); //添加后面数据
    SubItems.add('3');
    SubItems.add('3');
  end;

  with ListView1.Items.Add do
  begin
    Caption := '4'; //添加第一项
    SubItems.add('30'); //添加后面数据
    SubItems.add('30');
    SubItems.add('30');
  end;

  with ListView1.Items.Add do
  begin
    Caption := '5'; //添加第一项
    SubItems.add('1000'); //添加后面数据
    SubItems.add('1000');
    SubItems.add('1000');
  end;

  with ListView1.Items.Add do
  begin
    Caption := '6'; //添加第一项
    SubItems.add('110'); //添加后面数据
    SubItems.add('110');
    SubItems.add('110');
  end;
end;

function TForm1.CompareValue(s1, s2: real): integer;
begin
  if s1 > s2 then
    result := 1
  else
    result := 0;
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  columnToSort := Column.Index; //把要进行排序的列记下来，由Compare函数用
  if LastColumn = Column then //如果最后一次点击的列和本次点击的列相同
    nSortType := Abs(nSortType - 1) //把排序方式反过来
  else
    nSortType := 0; //否则就把排序方式设为零
  Column.ImageIndex := nSortType + 1;
    //设置表头的图标,,这里已经把smallImages 与一个imagelist关联起来了
  LastColumn := Column; //记下最后一次点击是哪一列
  ListView1.CustomSort(nil, nSortType);
    //此函数中第一个参数如果是nil，就会触发OnCompare事件，在这个事件进行排序处理
end;

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
var
  ix: Integer; //把哪个子项传达给compareText函数
begin
  if columnToSort = 0 then
  begin
    Compare := CompareText(Item1.Caption, Item2.Caption);
      //如果是第一列，也就是以caption以标准进行排序
    if Data <> 0 then
      Compare := -compare;
  end
  else
  begin
    ix := columnToSort - 1;
    Compare := CompareText(Item1.SubItems[ix], Item2.SubItems[ix]); //以某一个子项进行排序
    if columnToSort=3 then
    begin
      Compare :=CompareValue(StrToFloat(Item1.SubItems[ix]),StrToFloat(Item2.SubItems[ix]));
      if Data <> 0 then
        Compare := 1-compare; //这一句控制了同时点击同一列时进行升序与倒序的变换
    end
    else
    begin
      if Data <> 0 then
        Compare := -compare;
    end;
  end;
  {if Data <> 0 then
    //这个Data参数，如果listView中的compare是由 CustomSort函数激活的，Data就是CustomSort中的第二个参数的值，否则就是0
    Compare := -compare; //这一句控制了同时点击同一列时进行升序与倒序的变换  }
end;

end.