用来排序排序不错: ---------------------------------------------------------------- procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin (Sender as TCustomListView).Tag := 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 (Sender as TCustomListView).Tag = 0 then Compare := CompareText(Item1.Caption, Item2.Caption) else begin ix := (Sender as TCustomListView).Tag - 1; Compare := CompareText(Item1.SubItems[ix], Item2.SubItems[ix]); end; end;
----------------------------------------------
维护世界和平,共创美好盒子。