arrays - 内部数组的访问元素

Question

给定这样的类：

TIntClass = class
private
    myInts : TList<Integer>;
...
end;

如何使用 [] 运算符访问内部列表的元素，例如

myIntList = TIntClass.Create();
myIntList[5];

?

提前致谢。

Answer 1

如果我理解正确，您需要定义一个私有函数，它将充当默认属性的“getter”：

注意：代码未经测试

type
  TIntClass = class
  private
      // returns a value from myInts based on Index parameter
      function getItem(Index: Integer): Integer;
  private
      myInts : TList<Integer>;
  ...
  public
      property Items[Index: Integer]: Integer read getItem; default;
  end;

...
implementation

function TIntClass.getItem(Index: Integer): Integer;
begin
  Result := myInts[Index];
end;

所以现在你可以这样做：

procedure test;
var
  LMyIntClass: TIntClass;
  L5thElemValue: Integer;
begin
  L5thElemValue := LMyIntClass[4]; // first element is accessed using LMyIntClass[0]
end;

Answer 2

它应该是 myIntList.myInts[5]，假设您在同一个单元内，以便您可以访问 TIntClass 的私有成员。