Delphi ListView排序
来源:互联网 发布:知乎电脑版网页 编辑:程序博客网 时间:2024/06/06 08:53
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;
- Delphi ListView排序
- Delphi ListView排序
- Delphi的ListView自动排序
- delphi的一个排序listview控件
- Delphi listview 点击列头排序
- delphi ListView
- delphi ListView 的使用
- Delphi ListView的用法
- Delphi ListView基本用法
- delphi listview使用
- delphi LISTVIEW使用
- listview排序
- ListView 排序
- ListView排序
- ListView排序
- ListView排序
- ListView排序
- listview 排序
- dp训练 1003
- dp训练 1004
- 使用 Visual Assist X 自动添加注释及常用代码
- 内部比赛 A Alfredo\'s Pizza Res…
- 内部比赛C Convert Kilometers to …
- Delphi ListView排序
- 中国周边大演习频仍是美国声…
- 内部比赛 E El Dorado
- 内部比赛 G A Game with Marbles
- DOS命令大全系列一
- DOS命令大全系列二
- DOS命令大全系列三
- 卫哲的3+1产品法
- DOS命令大全系列四