10 lines
135 B
ObjectPascal
10 lines
135 B
ObjectPascal
|
uses extensionmethods10u;
|
||
|
|
|
||
|
|
procedure Test(x: integer);
|
||
|
|
begin
|
||
|
|
assert(x=3);
|
||
|
|
end;
|
||
|
|
begin
|
||
|
|
var a := Seq(3,3,3);
|
||
|
|
a.MyForeach(Test);
|
||
|
|
end.
|