如何搜索通用 TList收藏？

Question

可能的重复：
如何我在通用 TList 中搜索具有特定字段值的记录？

我有一个 TActivityCategory 集合，

TList<TActivityCategory>

其中有一个字符串类型的 Name 属性，并且我想使用 Name 属性搜索 TList。

我在 TList<> 中看到 BinarySearch但这需要 TActivityCategory 的实例。我只想传递名称字符串。

我该怎么做呢？

Answer 1

创建列表时，您可以传入比较器。 Generics.Defaults 单元中有一些比较器类，您可以在其中传递一些匿名方法来比较两个元素。它们用于多种方法，例如 IndexOf、Contains 或 Sort。

例子：

uses
  Generics.Defaults,
  Generics.Collections;

type
  TActivityCategory = class
  private
    FName: string;
  public
    constructor Create(const Name: string);
    property Name: string read FName write FName;
  end;

constructor TActivityCategory.Create(const Name: string);
begin
  FName := Name;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  activities: TList<TActivityCategory>;
  search: TActivityCategory;
begin
  activities := TObjectList<TActivityCategory>.Create(
    TDelegatedComparer<TActivityCategory>.Create(
      function(const Left, Right: TActivityCategory): Integer
      begin
        Result := CompareText(Left.Name, Right.Name);
      end));

  activities.Add(TActivityCategory.Create('Category B'));
  activities.Add(TActivityCategory.Create('Category C'));
  activities.Add(TActivityCategory.Create('Category A'));

  search := TActivityCategory.Create('Category C');
  if activities.Contains(search) then
    ShowMessage('found');

  ShowMessageFmt('Index: %d', [activities.IndexOf(search)]);
  activities.Sort;
  ShowMessageFmt('Index: %d', [activities.IndexOf(search)]);


  search.Name := 'Category D';
  if not activities.Contains(search) then
    ShowMessage('not found');

  search.Free;
  activities.Free;
end;

Answer 2

如果您没有要搜索的实例，则必须自己进行搜索。可以通过三种基本方法来执行此操作：

• 二分搜索：实现您自己的二分搜索。仅当列表已排序时这才有效。
• 线性搜索：实现您自己的线性搜索。这总是有效的，但在大型列表上它比二分搜索慢得多。
• 字典查找：在列表旁边维护一个TDictionary。无需搜索，但您需要编写一些代码来保持两者同步。

Answer 3

坦率地说，考虑到基于比较器的方法所需的所有样板，编写您自己的搜索例程可能是最简单的：

type
  TActivityCategoryList = class(TList<TActivityCategory>)
  public
    function Find(const Name: string): Integer;
  end;

function TActivityCategoryList.Find(const Name: string): Integer;
begin
  for Result := 0 to Count-1 do
    if Self[Result].Name=Name then
      exit;
  Result := -1;
end;