listview,Delphi ListView排序

var m_bSort: boolean=false; //控制正反排序的变量 //ListView排序的回调函数，默认的是快速排序法，也可以自己在这里做算法 function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall; var txt1,txt2 : string; begin if ParamSort <> 0 then begin try txt1 := Item1.SubItems.Strings[ParamSort-1]; txt2 := Item2.SubItems.Strings[ParamSort-1]; if m_bSort then begin Result := CompareText(txt1,txt2); end else begin Result := -CompareText(txt1,txt2); end; except end;
end else begin if m_bSort then begin Result := CompareText(Item1.Caption,Item2.Caption); end else begin Result := -CompareText(Item1.Caption,Item2.Caption); end; end; end; procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ListView1.CustomSort(@CustomSortProc, Column.Index); m_bSort := not m_bSort; end;

延伸阅读

• 2011-7-31-- listview,揭秘在ListView等AdapterView上动态添加删除项的陷阱
• 2011-6-7-- listview,The content of the adapter has changed but ListView did not receive a notification.
• 2011-4-15-- listview,使用Adapter为ListView提供数据（其三）
• 2011-4-15-- listview,使用Adapter为ListView提供数据（其四）
• 2011-4-15-- listview,使用Adapter为ListView提供数据（其一）
• 2010-12-14-- listview,Android提高第十五篇之ListView自适应实现表格
• 2010-12-27-- wpf画圆,【WPF】自定义GridLineDecorator给ListView画网格
• 2009-1-15-- listview显示数据:ListView标题平面显示
• 2008-9-10-- listview:ADO.Net对象访问数据库,将结果写入ListView
• 2009-10-11-- listview:实现单文档ListView类型的打印、预览功能