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()); // Âñ¸ îñòàëüíîå ðàáîòàåò
|
|
end;
|
|
|
|
begin
|
|
Cycle(test);
|
|
assert(i=10);
|
|
end. |