blob: 1113b4254c1e1cf6ea5ee7a93db6b9fe98df182c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{ %FAIL}
{$mode objfpc}
{$apptype console}
type
T = class
F: Integer;
function MoveNext(a: Integer): Boolean;
property Current: Integer read F;
end;
function T.MoveNext(a: Integer): Boolean;
begin
Result := true;
end;
operator enumerator(a: Integer): T;
begin
Result := T.Create;
Result.F := a;
end;
var
i: Integer;
begin
for i in 1 do Writeln(i);
end.
|
