Извлечение дополнительной информации из перечислителя

В Lazarus/FPC Wiki написано, что из перечислителя можно извлечь дополнительную информацию посредством синтаксической конструкции for Element in Enumerator index Info do (см. https://wiki.freepascal.org/for-in_loop#Get_enumerator_Position_if_available). Я создал перечислитель для своего класса:

TLittleTableEnumerator = class
    private
      LinkedObject: TLittleTable;
      FCurrent: TLittleTableItem;
      FCurrentIndex: TInt;

    public
      constructor Create(AObject: TLittleTable);
      function MoveNext: Boolean;
      property Current: TLittleTableItem read FCurrent;
      property CurrentIndex: TInt read FCurrentIndex;

  end;

Но уже при использовании

for Element in AObject index I do begin 
 
end;

Мне компилятор выдает ошибку: ticker.pas(90,29) Fatal: Syntax error, "DO" expected but "identifier INDEX" found

Я чего-то не понимаю или нужно подключить какие-то дополнительные опции компилятора?


Ответы (0 шт):