delphi的ListView排序问题

Question

我是新手，我做了一个很简单的查询分析器：用listview显示结果，能够显示列名以及查询的结果。
     我想点击列名能够排序！ 高手请指导下!有代码例子最好！

Answer 1

你看看TListView对象的SortType属性和OnCompare事件。就能实现的你的目的。

Answer 2

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;