Delphi ListView排序
2011-07-15 03:00
309 查看
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;
//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排序
- 可以排序的ListView (备份一下,找这个排序实现不容易啊)
- Delphi ListView基本用法大全
- [WPF]ListView点击列头排序功能实现
- delphi LISTVIEW使用
- listview控件实现点击列表头进行listview排序示例分享
- Android 实现ListView的A-Z字母排序和过滤搜索功能,实现汉字转成拼音
- 在C#中实现对ListView点击列标题自动排序功能
- Delphi在Listview中加入Edit控件
- Delphi:assigned,TTreeView,return/result,listview
- Delphi中关于listview的一些使用
- delphi listview自绘图形
- C# ListView实现点击列表头实现排序
- 在C#中实现对ListView点击列标题自动排序功能
- delphi listview自绘图形