30 lines
467 B
ObjectPascal
30 lines
467 B
ObjectPascal
unit u_interface2;
|
|
type TClass<T> = class(IEnumerable<T>)
|
|
public function GetEnumerator: IEnumerator<T>;
|
|
begin
|
|
|
|
end;
|
|
|
|
public function System.Collections.IEnumerable.GetEnumerator: System.Collections.IEnumerator;
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
|
|
procedure Test;
|
|
begin
|
|
var i := 1;
|
|
var seq1 := i.Iterate(x->x+1);
|
|
var lst := new List<integer>;
|
|
foreach var j in seq1 do
|
|
begin
|
|
lst += j;
|
|
if j > 10 then
|
|
break;
|
|
end;
|
|
assert(lst[5] = 6);
|
|
end;
|
|
|
|
begin
|
|
Test;
|
|
end. |