这种方法是响应了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.
