Извлечение дополнительной информации из перечислителя
В 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
Я чего-то не понимаю или нужно подключить какие-то дополнительные опции компилятора?