delphi - 如何声明和使用通用记录的通用 TList

Question

我想声明一个通用记录类型，例如

TMyGenericRecord<T, T1> = record
   X: <T>;
   Y: <T1>;
end;

然后我想声明一个 TMyGenericRecord 的 TList，但似乎无法获得正确的语法。

TMyGenericList = TList<TMyGenericRecord<T, T1>>???

这可能吗？

Answer 1

我想你想这样写:

type
  TMyGenericRecord<T1, T2> = record
    X: T1;
    Y: T2;
  end;

  TMyGenericList<T1, T2> = class(TList<TMyGenericRecord<T1, T2>>);

然后您可以像这样实例化该类型，例如:

var
  List: TMyGenericList<Integer, string>;

然后您可以声明与此列表兼容的记录，如下所示:

var
  Rec: TMyGenericRecord<Integer, string>;

此时

List.Add(Rec);

将编译。尽管显然您需要构建列表的实例。