15 lines
192 B
ObjectPascal
15 lines
192 B
ObjectPascal
|
var i: integer;
|
|||
|
|
procedure test;
|
|||
|
|
begin
|
|||
|
|
Inc(i);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure Cycle(p: procedure);
|
|||
|
|
begin
|
|||
|
|
10.Times.ForEach(x->p()); // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Cycle(test);
|
|||
|
|
assert(i=10);
|
|||
|
|
end.
|