listview排序问题

Question

delphi 6.0 自带demo中有个Virtual Listview例子1，在这个例子中，怎样让它能排序（点一下列标头就升序，再点一下就降序）
2，怎样一运行这个例子，是否可以直接在combobox中指定一个盘符，并在listview中显示文件

Answer 1

在onColumnClick里写
    ColumnToSort := Column.Index;
    ColClickCount[ColumnToSort] := ColClickCount[ColumnToSort] * (-1);
    (Sender as TCustomListView).AlphaSort;
在onCompare里写
var
  ix: Integer;
begin
    if ColumnToSort = 0 then
      Compare := ColClickCount[ColumnToSort] * CompareText(Item1.Caption,Item2.Caption)
    else begin
      ix := ColumnToSort - 1;
      Compare := ColClickCount[ColumnToSort] * CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
    end;
end;