排序，排序

[Again]

<font color="red">ListView如何排序？</font>
像资源管理器那样对Subitem的内容进行排序。

[江王]

最好自己来控制排序，如下所示：

function CustomSortProc( Item1, Item2 : TListItem; lParam : LongInt ) : Integer; stdcall;
begin
if lParam >= 0 then //lParam中保存的是SubItem的Index
begin
result := -CompareText(Item1.SubItems.Strings[lParam],
Item1.SubItems.Strings[lParam] );
end else
result := 0;
end;

在ListView的ColumnClick事件响应方法中输入
CustomSort(@CustomSortProc, Column.Index );