TObjectList<T>.Contains 导致 Delphi 2009 中的访问冲突

Question

在 Delphi 2009 中，到目前为止，我在泛型方面没有遇到重大问题（使用 Generics.Collections 列表，没有特殊的泛型功能）。

现在我发现这段代码会导致访问MyList.Contains的行中出现AV。

如果我声明 TMyList = class(TList<TMyEntry>); 错误就会消失

我应该避免TObjectList<T> 还是我的代码中的其他内容导致了这个错误？

type
  TMyEntry = class(TStringlist);
  TMyList = class(TObjectList<TMyEntry>);

procedure TListTests.TestAV;
var
  Entry: TMyEntry;
  MyList: TMyList;
begin
  MyList := TMyList.Create;
  try
    Entry := TMyEntry.Create;

    MyList.Add(Entry);

    Assert(MyList.Contains(Entry));  // <--- AV

  finally
    MyList.Free;
  end;
end;

Answer 1

这是基于linked answer的修复：

改变

MyList := TMyList.Create;

到

MyList := TMyList.Create(TComparer<TMyEntry>.Default);