listview排序支持

//listview排序支持
function   CustomSortProc(Item1,Item2:TListItem;ParamSort:Integer):integer;stdcall;

var
  m_bSort:Boolean;//用于控制升序及降序的转换

implementation

function CustomSortProc(Item1, Item2: TListItem;
  ParamSort: Integer): integer;
var
 txt1,txt2:String;
begin
    if   ParamSort<> 0   then
    begin
      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;
    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 TForm.lv1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  Lv1.CustomSort(@CustomSortProc,Column.Index);
  m_bSort:=not m_bSort;
end;