1. 首页首页
  2. 编程汇总编程汇总

2025年delphi数组排序_sql排序函数

编程汇总 • • 阅读 28

delphi数组排序_sql排序函数var m bSort boolean false 控制正反排序的变量 ListView 排序的回调函数 默认的是快速排序法 也可以自己在这里做算法 function CustomSortPr Item1 Item2 TListItem ParamSort integer integer stdcall var txt1 txt2

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;

编程小号
上一篇 2025-03-14 20:33
下一篇 2025-03-15 15:33

相关推荐

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