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

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 相关的代码。

现代对象帕斯卡中有解决方案吗？如果没有，只是好奇是否有其他通用语言可以解决这样的事情？

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;

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

如果您需要数组，则可以根据需要使用动态数组：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;