17 lines
161 B
ObjectPascal
17 lines
161 B
ObjectPascal
|
unit u_overloads1;
|
||
|
|
var i : integer;
|
||
|
|
|
||
|
|
procedure Test(a : 1..4);
|
||
|
|
begin
|
||
|
|
i := 1;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Test(a : byte);
|
||
|
|
begin
|
||
|
|
i := 2;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Test(2);
|
||
|
|
assert(i=2);
|
||
|
|
end.
|