如何在listview控件中实现多种方式的排序？(5分)

比如说安时间，大小等

写OnCompare事件就可以了

它有SortType属性，可以利用其中的stData

能说具体点吗，我要的试算法

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
ColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
end;

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
ix: Integer;
begin
if ColumnToSort = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else begin
ix := ColumnToSort - 1;
Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;
end;

LIstView要用得好，速度很重要。^_^

多人接受答案了。