Пробую прикрутить енумератор к классу TPerson, но ошибка:
[dcc32 Error]: E2291 Missing implementation of interface method IEnumerator.GetCurrent
Имеем следующую реализацию, что ту не так?
Вроде метод GetCurrent реализован, но компиль не видит его
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
program PersonEnumeratorDemo;
{$APPTYPE CONSOLE}
{$R *.res}
uses System.SysUtils;
type
TPerson = class
Name: string;
Age: integer;
constructor Create(AName: string; AAge: integer);
end;
TPersonList = class
public
FPersons: TArray<TPerson>;
public
function GetEnumerator: IEnumerator<TPerson>;
procedure Add(APerson: TPerson);
end;
TPersonEnumerator = class(TInterfacedObject, IEnumerator<TPerson>)
private
FPersons: TArray<TPerson>;
FIndex: integer;
function GetCurrent: TPerson;
public
constructor Create(APersons: TArray<TPerson>);
function MoveNext: Boolean;
procedure Reset;
property Current: TPerson read GetCurrent;
end;
{ TPerson }
constructor TPerson.Create(AName: string; AAge: integer);
begin
Name:= AName; Age:= AAge;
end;
{ TPersonList }
procedure TPersonList.Add(APerson: TPerson);
begin
FPersons:= FPersons + [APerson];
end;
function TPersonList.GetEnumerator: IEnumerator<TPerson>;
begin
Result:= TPersonEnumerator.Create(FPersons);
end;
{ TPersonEnumerator }
constructor TPersonEnumerator.Create(APersons: TArray<TPerson>);
begin
FPersons:= APersons;
FIndex:= -1;
end;
function TPersonEnumerator.GetCurrent: TPerson;
begin
Result:= FPersons[FIndex];
end;
function TPersonEnumerator.MoveNext: Boolean;
begin
Result:= FIndex < High(FPersons);
if Result then Inc(FIndex);
end;
procedure TPersonEnumerator.Reset;
begin
FIndex:= -1;
end;
begin
end.
