delphi数组排序_sql排序函数

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;

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/186125.html原文链接：https://javaforall.cn