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;