ListView排序

最新推荐文章于 2019-07-21 23:01:31 发布

seagull327

最新推荐文章于 2019-07-21 23:01:31 发布

阅读量466

点赞数

分类专栏： ListView 文章标签： listview integer function string

本文链接：https://blog.csdn.net/haiou327/article/details/6611315

版权

ListView 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

var
  m_bSort: Boolean = false; //控制双向排序
implementation

{$R *.dfm}

function CustomSortProc(Item1, Item2: TListItem;
  ParamSort: Integer): Integer; stdcall;
var
  txt1, txt2: string;
 // txt1, txt2: Integer;
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);
        //Result := txt1 - txt2;
      end
      else
      begin
        //Result := -(txt1 - txt2);
        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.lv1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  if (Column.Index = 1) or (Column.Index = 3) then
  begin
    lv1.CustomSort(@CustomSortProc, Column.Index);
    m_bSort := not m_bSort;
  end;
end;