20 lines
245 B
ObjectPascal
20 lines
245 B
ObjectPascal
|
uses
|
|||
|
|
System,
|
|||
|
|
System.Linq;
|
|||
|
|
|
|||
|
|
var j: integer;
|
|||
|
|
|
|||
|
|
procedure MyPrint(i:Integer); overload;
|
|||
|
|
begin
|
|||
|
|
j := 2;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure MyPrint(i:Int64); overload;
|
|||
|
|
begin
|
|||
|
|
j := 1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Enumerable.Range(1, 10).ForEach(MyPrint);
|
|||
|
|
assert(j = 2);
|
|||
|
|
end.
|