对ListView进行排序

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

zwylly99

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

阅读量604

点赞数

文章标签： listview integer function

本文链接：https://blog.csdn.net/zwylly99/article/details/1789464

版权

//对ListView进行排序, piCol表示列索引, pbAutoOrder表示是否自动排序

procedure SortListColumn(piCol: Integer; pbAutoOrder: Boolean);
function CustomSortProc(Item1, Item2: TListItem; ParamSort: Integer): Integer; stdcall;
begin
    case ParamSort of
      0:
        begin
          if AtoZOrder then
            Result := lstrcmp(PChar(TListItem(Item1).Caption), PChar(TListItem(Item2).Caption))
          else
            Result := -lstrcmp(PChar(TListItem(Item1).Caption), PChar(TListItem(Item2).Caption));
        end
      else
        begin
          if AtoZOrder then
            Result := lstrcmp(PChar(TListItem(Item1).SubItems[ParamSort-1]), PChar(TListItem(Item2).SubItems[ParamSort-1]))
          else
            Result := -lstrcmp(PChar(TListItem(Item1).SubItems[ParamSort-1]), PChar(TListItem(Item2).SubItems[ParamSort-1]));
        end;
    end;
end;
begin
if piCol in [0..lvDetail.Columns.Count - 1] then
begin
    if (FCurrentCol = piCol) and (pbAutoOrder) then
      AtoZOrder := not AtoZOrder
    else
      FCurrentCol := piCol;