3

我有一堆存储在 TObjectList 中的 TCoordinate。为了更快地找到坐标，必须对列表进行排序。问题是我在交替搜索 x 和 y。是否有一种存储排序结果的方法，所以我不需要一次又一次地对列表进行排序。

unit uStackoverflowQuestion;

interface

uses
  System.Generics.Collections, System.Generics.defaults;

type
  TCoordinate = class(Tobject)
    public
      x: Integer;
      y: Integer;
  end;

  TMultipleSortedList = class(TObjectlist<TCoordinate>)
    public
      // StoredSortingByX: List;
      // StoredSortingByY: List;
      procedure SortAndStoreByX;
      procedure SortAndStoreByY;
  end;

implementation

procedure TMultipleSortedList.SortAndStoreByX;
begin
  // TODO -cMM: TMultipleSortedList.SortAndStoreByX default body inserted
end;

procedure TMultipleSortedList.SortAndStoreByY;
begin
  // TODO -cMM: TMultipleSortedList.SortAndStoreByY default body inserted
end;

end.
4

2 回答 2

5

创建一个索引图来表示两个不同的订单。这只是一个动态整数数组。

type
  TListOrder = TArray<Integer>;

当您希望使用该顺序阅读项目时，您可以这样做：

function GetItem(Index: Integer; const Order: TListOrder): TItem;
begin
  Result := List[Order[Index]];
end;

这里的关键点是我们不会修改Listever的内容。我们认为这是无序的。相反，我们将订单与容器分开。这允许我们有多个这样的订单。

下一个问题是如何创建订单。首先使用所有有效索引填充订单：

var
  i: Integer;
  Order: TListOrder;
....
SetLength(Order, List.Count);
for i := 0 to List.Count-1 do
  Order[i] := i;

现在您可以像这样对订单进行排序：

TArray.Sort<Integer>(Order, Comparer);

最后，使用什么作为比较器。这就是魔法发生的地方。

var
  Comparer: IComparer<Integer>;
....
Comparer := 
  function(const Left, Right: Integer): Integer
  var
    LeftItem, RightItem: TItem;
  begin
    LeftItem := GetItem(Left, Order);
    RightItem := GetItem(Right, Order);
    Result := ...; // your compare logic goes here
  end;

就是这样。

于 2017-07-19T09:38:40.203 回答
0

如果列表中的对象没有更改，则可以使用 TList<> 来存储对对象的附加引用，而不是 David Heffernan 建议的整数数组。它在访问时间上有一个小优势。

于 2017-07-19T11:35:13.513 回答