delphi - 如何使用引用泛型类型的复杂类型

Question

考虑以下类型

type
  TRecs = array[0..100000] of TRec;
  PRecs = ^TRecs;

  TRecObject = class
  private
    fRecs: PRecs;
  public
    constructor Create;
    property    Recs: PRecs read fRecs;
  end;

我想让 TRec 成为通用参数。问题是我需要放在课程范围之外。因为像

 T<MyType>Object = class
 private
   fRecs: ^array[0..100000] of MyType;
 public
    property    Recs: ^array[0..100000] of MyType read fRecs
 end

不可能。

将 PRecs 作为参数也不是一种选择，因为在我的实际对象中有与 TRec 相关的代码。

现代 Object Pascal 中有解决方案吗？如果没有，只是好奇是否有任何其他支持泛型的语言可以解决这样的问题？

Answer 1

我不完全确定我理解你的问题，但我认为你正在寻找这样的东西：

type
  TMyObject<T> = class
  public
    type
      PArr = ^TArr;
      TArr = array[0..100000] of T;
  private
    fRecs: PArr;
  public
    property Recs: PArr read fRecs
  end;

也就是说，我看不出那堂课的意义。你可以只使用TList<T>from Generics.Collections。

如果你需要一个数组，那么你可以使用一个动态数组：TArray<T>或者array of T，你喜欢。

Answer 2

你的通用语法有点混乱。试试这个：

  TRecArray<T> = array[0..100000] of T;

  TGenericRecObject<T> = class
  private
    FRecs: TRecArray<T>;
  public
    property Recs: TRecArray<T> read FRecs;
  end;