arrays - 访问内部数组的元素

Question

给定一个这样的类:

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

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

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

？

提前致谢。

Answer 1

如果我理解正确，您需要定义一个私有(private)函数，它将充当默认属性的“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;